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32 Expresiones lógicas 


EMOS visto que una expre- 
sión relacional devuelve 
siempre el resultado CIER- 
TO o el resultado FALSO; si 


ven alguno de estos dos re- 
sultados lógicos reciben el 
nombre de predicados con- 
cluimos que una expresión relacional es un 
predicado. 


Los operandos de una expresión lógica 
son predicados. 
Y los operadores son: 


NO predicadol predicado2 
Y predicadol predicado2 
O predicadol predicado2 


El resultado de una expresión lógica es 
la palabra CIERTO o la palabra FALSO; por 
tanto, estas expresiones son también predi- 
cados. 


— OPERACION NO 
NO predicadol 


Devuelve CIERTO si predicado es FAL- 
SO y devuelve FALSO si predicado es CIER- 
TO; es decir, devuelve el valor lógico contra- 
rio al del predicado. 


(predicadol1) es el dato de la expresión 
NO. 


La operación NO sólo puede tener un 
dato. 


Es 
dos objetos. 


las operaciones que devuel- * 


A continuación mostramos la tabla de la 
operación NO. 


] = CIERTO. 
0 = FALSO. 
D - R 
1-0 
0 -= 1 
Ejemplos: 
? ESCRIBE NO “CIERTO 
FALSO 
? ESCRIBE NO "FALSO 
CIERTO 
? ESCRIBE NO (2 > 3) 
CIERTO 
? ESCRIBE NO (2000 / 10) < 720 
CIERTO 
? ESCRIBE NO (MENOR? 5 (10 / 2) 
CIERTO 


? HAZ "A "CIERTO 
? ESCRIBE NO :A 

FALSO 

— OPERACION Y 


Y predicadol predicadoz. 

Devuelve CIERTO si y sólo si todos sus 
datos son ciertos, si no devuelve FALSO. 

(predicadol y predicado2) son los da- 
tos de la expresión. 

El número de datos de la operación Y 
puede ser variable, 

A continuación mostramos la tabla de la 
operación Y con dos datos. 


] - CIERTO 
0» FALSO 


os operadores de relación sirven para comparar 
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OO rr 
OO mn 
ooor-|y 


Ejemplos: 


? ESCRIBE Y "CIERTO 

CIERTO 

? ESCRIBE Y (2 < 10) “CIERTO 
CIERTO 

? ESCRIBE Y (2 > 3) (4 < 2) 
FALSO 

? ESCRIBE Y ((2000 / 33) < 720) ((20 * 
43) < 720) 

FALSO 

? ESCRIBE O (MENOR? 8 (10 / 2)) 
(IGUALES? 5 (10 / 2) 

FALSO 

? HAZ "A CIERTO 

? HAZ 'B FALSO 

? ESCRIBE Y :A :B 

FALSO 

? HAZ "A (30'80) < 200 

? HAZ 'B (200 / 3) > 65 

? ESCRIBE Y :A :B 

FALSO 

— OPERACION O 

O predicadol predicado2 


Devuelve FALSO si sus datos son todos 
FALSO, si no devuelve CIERTO. 

El número de datos de esta operación 
puede ser variable. 

La tabla de esta operación con dos da- 
tos es: 


OO U 
ororlu 
I 
Orem 


Ejemplos: 


? ESCRIBE O “CIERTO "FALSO 

CIERTO 

? ESCRIBE O "FALSO "FALSO 

FALSO 

? ESCRIBE O (MENOR? 5 (10 / 2) 
(IGUALES? 5 (10 / 2) 

CIERTO 

? HAZ "A "CIERTO 


? HAZ "B "CIERTO 
? ESCRIBE O :A :B 
CIERTO 

? HAZ "A 300 

? HAZ 'B 30 

? HAZ'C:A >:B 
2 HAZ'DCA / 10) =:B 
? ESCRIBE :C 
CIERTO 

? ESCRIBE :D 
CIERTO 

? ESCRIBE O :C :D 
CIERTO 


El Operadores de relación 


Los operadores de relación se utilizan 
para comparar dos objetos, el resultado de la 
comparación sólo puede ser CIERTO o FALSO. 

En LOGO disponemos de tres de estos 
operadores: 


MAYOR? 
MENOR? 

IGUAL? 

— MAYOR? nl n2 


Preguntamos'al LOGO si nl es mayor 
que n2. Puede escribirse también utilizando el 
signo >, que significa mayor. 


> nl n2 forma prefija 

nl > n2 forma infija 

? ESCRIBE MAYOR? 5 7 
FALSO 

? ESCRIBE MAYOR? 10 2 
CIERTO 

? ESCRIBE > -1 -2 

CIERTO 

? ESCRIBE 0 > 3 

FALSO . 

? ESCRIBE (20+4) > (.4 * 10) 
CIERTO 

? HAZ "A 30 

? HAZ 'B 50 

? HAZ 'C 4 

? ESCRIBE ((¿A *:B) - :B*:B) > (A +:B) 
FALSO 


Recuerda que el resultado de una ex- 
presión aritmética es siempre un objeto. 


Las operaciones que devuelven el valor lógico 
cierto o falso reciben el nombre de predicados. 


— MENOR? nl n2 
¿Es nl menor que n2? 


También podemos escribirlo así: 


< nl n2 forma prefija 

nl < n2 forma infija 

? ESCRIBE MENOR? 7 20 
CIERTO 

? ESCRIBE < 20 3 
FALSO 

? ESCRIBE < 40 100 
CIERTO 

? ESCRIBE 19 < 0 
FALSO 

? HAZ 'C 50 

? ESCRIBE 20 < :C 
CIERTO 

? HAZ "A 1299 

? HAZ "B 2929 

? ESCRIBE MENOR? (¡A /:B) (A - (:B / 
10) 

CIERTO 


— IGUALES? nl n2 
¿Son iguales nl y n2? 
Esta expresión es equivalente a: 


= nl n2 forma prefija 
nl = n2 forma infija 
? ESCRIBE IGUALES? 20 20 
CIERTO 
?ESCRIBE = 30 50 
FALSO 
?ESCRIBE 50 = 50 
CIERTO , 
? HAZ "A 1010 
? HAZ "B 2020 
? ESCRIBE (:A * 2) = :B 
CIERTO 
es lo mismo que escribir 
? ESCRIBE IGUALES? (1010 * 2) 2020 


Ml Gestión con variables 


En ocasiones es necesario saber cuáles 
son las variables que se están utilizando en un 
proceso. Esto puede ser de gran ayuda si en 


un momento determinado queremos utilizar 
una nueva variable y no recordamos si ya está 
utilizada. 

Para esto el Logo dispone de una orden 
que nos lo dice: 


VAR? "Nombre de variable 
Si asignamos un valor a la variable 1: 
? HAZ 120 
y a continuación introducimos: 
? ES VAR? “I 
en la pantalla aparecerá el mensaje: 
CIERTO . 
Es decir, nos dice que l sí es una 


variable. 
Si ahora introducimos: 


? ES VAR? "II 
en la pantalla aparecerá el mensaje: 
FALSO 


siempre y cuando no hayamos asignado ante- 
riormente ningún valor a la variable Il. 

En el Logo de Spectrum la equivalente 
es: 


ES. VARIABLE? 


Si queremos saber todas las variables 
que hemos utilizado introducimos, según el or- 
denador con el que trabajemos: 


— PC-COMPATIBLES 
? IMVS 
Abreviatura de IMprime VariableS 


En la pantalla aparece la lista de todas 
las variables utilizadas y sus respectivos con- 
tenidos. 


— MSX 
? LVARS 
Abreviatura de Lista de VARiableS 


Obtenemos en forma de lista exclusiva- 
mente el nombre de las variables utilizadas. 


— SPECTRUM 
? EDVS 
Abreviatura de EDita VariableS 


En el editor aparece la lista de todas las 
variables utilizadas con sus respectivos con- 
tenidos. 

En este último caso podemos también 


Borra las variables que no necesites. 
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elegir la o las variables que queremos que nos 
muestre: 


? EDVS "Nombre de variable 


y obtendremos solamente la variable que se 
especifica y su contenido. 


? EDVS [Lista de variables] 


mostrará todas las variables que se especifi- 
can en la lista y sus respectivos valores. 

Si lo que queremos es borrar alguna va- 
riable disponemos de la orden: 


? BOVAR "Nombre de variable 
Abreviatura de BOrra VARiable 


La variable especificada se borrará de 
la memoria del ordenador. 

Para borrar todas las variables que 
existan: 


? BOVARS 


En la versión del Logo del Spectrum las 
órdenes que realizan estas funciones son: 
Para borrar una variable: 


? SUPV "Nombre de variable 
Abreviatura de SUprime VariableS 


Para borrar todas las variables: 
2? SUPVS 


En este caso también podemos borrar 
un número determinado de variables: 


? SUPV [Lista variables] 


Se borrarán exclusivamente las varia- 
bles que se especifican en la lista. 


HE Cuadro resumen 


“* — OPERADORES relacionales: 


— MAYOR? nl n2 
> nl n2 forma prefija 
nl > n2 forma infija 


Devuelve CIERTO si nl es mayor que 
n2; si no, devuelve FALSO. 


— MENOR? nl] n2 
< nl n2 forma prefija 
nl < n2 forma infija 


Devuelve CIERTO si nl es menor que 
n2; si no, devuelve FALSO. 


Podemos preguntar si un 
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— IGUALES? nl n2 
= nl n2 forma prefija 
nl = n2 forma infija 


Devuelve CIERTO si nl y n2 son igua- 
les; si no, devuelve FALSO. 


— OPERADORES LOGICOS 
— NO predicado 


Devuelve el valor lógico contrario al del 
predicado. 


— Y predicadol predicado2 


Devuelve CIERTO si todos los datos son 
ciertos; si no, devuelve FALSO. 


— O predicado] predicado.... 


Devuelve FALSO si todos los datos son 
falsos; si no, devuelve CIERTO. 


— VAR? "Nombre de variable 
ES. VARIABLE? "Nombre de variable 


Devuelve CIERTO si el nombre especi- 
ficado es el de una variable a la que se la haya 
asignado un valor. En caso contrario, devuel- 
ve FALSO. 


— IMVS 
LVARS 
EDVS 


Devuelve una lista de todas las varia- 
bles utilizadas y sus respectivos contenidos (a 
excepción de LVARS, que sólo devuelve la lis- 
ta de los nombres de las variables utilizadas). 


— BOVAR "Nombre de variable 
SUPV “Nombre de variable 


La variable especificada se borrará de 
la memoria del ordenador. 


— BOVARS 
SUPVS 


Todas las variables existentes serán 
borradas de la memoria del ordenador. 


HE Ejercicios 


1. Dibuja un paso de peatones visto 
desde arriba. 

2. Calcula el resultado de la siguiente 
expresión: 


objeto es una variable. 


O (Y (20 > (15 * 0.2) ) (37 < (90 - 35* — ? ESCRIBE Y CIERTO FALSO 
0.1)))(NO (75 /6)<12)) — ?HAZ"A 200 
3. Intenta realizar el siguiente dibujo: LE al *5)>(B*.2) 
2 HAZ 'DC(A-33*.3)<(A-:B*.1) 
? ESCRIBE O :C :D 
— ? HAZ "A "CIERTO 
? ESCRIBE NO :A "CIERTO 
— ? HAZ "V 20 
2 ES VAR? "V 
— ?BOVAR "V 
2AVV 


ES] Solución a los ejercicios 
1: 
Definimos un procedimiento de dos en- 


tradas, una para elegir la anchura de la calle 
y otra para elegir el número de franjas. 


:L para la anchura 
:D para el número de franjas 
? PARA CEBRA :L :D 
> BP 
> PONCL 2 
> SL 
> PONY -80 
> PONX 0 
> BL 
> AV 60 
z > SL AV 40 

CA > BL AV 60 
define un procedimiento con el cual consigas > HAZ 'A 256 - :L 
dividir la caja en departamentos, pudiendo ele- > HAZ'A:A/2 
gir el número de éstos en horizontal y en ver- > SL 
tical, para conseguir la caja por ejemplo, de la > HAZ "IX -128 +:A 
siguiente forma: > PONX :IX 
> PONY -80 
> PONRUMBO 0 
> BL 
> AV 160 
> SL 
> PONX IX + :L 
> BL 
> RE 160 
> SL 
> PONY -20 
> PONX COORX - 5 
Fig. 3. > HAZ “S ((L - 5) - (D* 5) /:D 
> PONCL 3 


Fig. 1. 


4. Tomando como base una caja con 
las dimensiones que aparecen en la figura: 


5. ¿Son correctas las siguientes órde- 
nes? 


Los operadores de una expresión lógica son 
predicados. 
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> REPITE :D [BL REPITE 2 [AV 40 GI 90 
AV :S GI 90] SL PONY COORY + 2 
PONX COORX - 2 BL RELLENA .SL 
PONX COORX - (3 + :S) PONY COORY 
2] 

> FIN 


Ejecútalo, por ejemplo: 
? CEBRA 100 10 


Fig. 4. 
o también 
? CEBRA 150 15 


Fig. 5. 
Te aconsejamos que antes de ejecutar 
el procedimiento te asegures de que la divi- 
sión de la longitud de la calle entre el número 
de franjas es mayor o igual a 7. 
., Puedes hacerlo con el LOGO. 


? ESCRIBE 7 > (150 / 15) 

CIERTO 

150 / 15 =10 

10 es mayor que 7; por tanto, los datos 
sirven. 


2: 
La expresión: 


O (Y (20 > (15 * 0.2) ) (37 < (90 - 35 
*0.1))) (6NO ((23 /6) > 12)) 


contiene: 


Operadores aritméticos: *, -, / 
Operadores de relación: >, < 
Operadores lógicos: O, Y, NO 


Vamos a ir calculando las diferentes 
operaciones de la expresión. 

En primer lugar, nos encontramos con 
la operación lógica O de otras dos operacio- 
nes, una Y u otra NO. 

Resolvemos, en primer lugar, la opera- 
ción lógica Y: 

Y(2>(5*02)(37<(0-3*01)) 
Calculamos el valor de cada uno de los pre- 
dicados: 

— 20 > (15* 0.2) = 20 > 3 

Como 20 es mayor que 3, el resultado 
de esta operación sería: 


CIERTO 
— 371 < (90 - 35 * 0.1) = 37 < 86.5 


Como 37 es menor que 86.5, el resulta- 
do sería: 


CIERTO 

Luego la expresión quedaría: 

Y "CIERTO “CIERTO 
y el resultado sería: 

CIERTO 

A continuación resolvemos la operación 
lógica: 

NO((75/6)<12) 

Calculamos el valor del predicado: 

— (75 / 6) < 12 = 12,5 < 12 


Como 12.5 no es menor que 12, el resul- 
tado sería: 


FALSO 
Luego quedaría: 
NO "FALSO 

que daría como resultado: 
CIERTO 


Una vez calculados los predicados de la 
operación O, sustituimos los valores que he- 
mos obtenido: 


O "CIERTO "CIERTO 


Las operaciones lógicas también son predicados. 


Y el resultado de la expresión general 
sería: 


CIERTO 


3: 
Para realizar el dibujo del campo de ba- 
loncesto hemos definido cuatro procedimien- 
tos. El primero, que llamamos CAMPO, dibuja 
el contorno del campo, la línea de separación 
y el círculo central: 


? PARA A 

> BP 

> SL 

> PONPOS [-120 -50] 

> BL 

> REPITE 2 [AV 140 GD 90 AV 240 GD 
90] 

> SL 

> PONPOS [-110 -40] 

> BL 

> REPITE 2 [AV 120 GD 90 AV 220 GD 
90] 


> PONX 0 

> AV 120 

> SL 

> PONPOS [-15 15] 

> BL 

> REPITE 10 [AV 10 GD 36] 
> ZONAS 

> FIN 


Este procedimiento realiza una llamada 
al procedimiento ZONAS, que es el que se en- 
carga de dibujar, con la ayuda de otros, las di- 
ferentes zonas de un campo de baloncesto, así 
como las canastas. Para ello va situando a la 
tortuga en puntos determinados y realizando 
llamadas a otros procedimientos. 


? PARA B 

> SL 

> PONPOS [-110 -5] 
> BL 

> PONPOS [-70 10] 
> SL 

> PONPOS [-110 45] 
> BL 

> PONPOS [-70 30] 
> TIRO 

> SL 


> PONPOS [-110 63] 
> PONRUMBO 90 

> LINEA 

> SL 

> PONPOS [-110 30] 
> PONRUMBO 90 

> CANASTA 

> SL 

> PONPOS [110 -8] 
> BL 

> PONPOS [70 10] 
> SL 

> PONPOS [110 45] 
> BL 

> PONPOS [70 30] 
=> TIRO 

> SL 

> PONPOS [110 -23] 
> PONRUMBO -90 
> LINEA 

> SL 

> PONPOS [110 10] 
> PONRUMBO -90 
> CANASTA 

> FIN 


Observa que se realizan dos llamadas a 
tres procedimientos, TIRO, LINEA y CANAS- 
TA. Estos dibujan, respectivamente, la zona 
desde donde se lanzan los tiros libres, la línea 
de lanzamiento de tres puntos y las canastas. 
Como esto hay que dibujarlo en las dos partes 
del campo se hacen dos llamadas a cada uno 
después de situar a la tortuga en la posición 
adecuada y con la orientación adecuada. 

El procedimiento que dibuja la zona de 
lanzamiento de tiros libres es: 


? PARA TIRO 

> PONRUMBO 90 

> REPITE 20 [AV 3 GD 18] 
> AV1GD90 AV 18 

> FIN 


El que dibuja la línea de lanzamiento de 
tres puntos: 


? PARA LINEA 

> BL 

> REPITE 6 [AV 28 GD 36] 
> FIN 


Si no estás seguro si has utilizado ya un nombre, 
para una variable determinada, consulta primero 


si es así. 
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Y, por último, el que dibuja las canastas: 


? PARA CANASTA 

> BL : 

> AV4CI90 AV 2 

> RE 24 AV 2 Gl 90 

> AV4RE 4 GD 90 

> AV6GDO AV6 

> REPITE 30 [AV 1 CI 18] 
>AV1 

> FIN 


Para ejecutarlo basta con introducir el 
nombre del procedimiento CAMPO: 


? CAMPO 


4: 
En primer lugar, definimos un procedi- 
miento para dibujar la caja: 


? PARA CAJA :N :M 

> BP 

> SL 

> PONX -50 

> BL 

> REPITE 2 [AV 20 GD 90 AV 100 GD 
90] 

> AV 20 CD 45 AV 50 
> GD 45 AV 100 GD 135 
> AV 50 Gl 45 AV 20 

> GI 135 AV 50 Gl 45 

> AV20 

> DPTOS :N :M 

> FIN 


Este procedimiento hace una llamada al 
procedimiento DPTOS con dos variables, cu- 
yos valores son introducidos desde CAJA y 
son los que van a determinar el número de de- 
partamentos que va a tener la caja en horizon- 
tal y en verticál. 


El procedimiento DPTOS calcula y di- 
buja dependiendo de :N y :M los departa- 
mentos: 


? PARA DPTOS :N :M 
Su 

> PONPOS [-50 20] 
> GD 45 

> BL 

> HAZ 'B 20 


> REPITE :N - 1 [AV 50 / :N GD 45 AV 
100 RE 100 GI 90 HAZ “A (COORY - :B) 
RE :A AV :A HAZ “'B COORY GD 45] 
> SL 

> PONPOS [-50 20] 

> BL 

> PONRUMBO 90 AV 100 / :M 

> HAZ “C 100 / :M 

> REPITE :M - 1 [REPITE :N (GI 45 AV 
50 / :N GD 135 AV :A RE :A GI 90] SL 
PONY 20 HAZ “C :C + 100 / :M PONX 
-50 + :C BL] 

> FIN 


Si ahora lo ejecutamos con los siguien- 


tes valores: 


? CAJA 22 
La caja que se obtiene es: 


Fig. 6. 


Con otros valores: 
? CAJA 48 


Fig. 7. 


El número de los operadores lógicos Y y O puede 


ser variable. 


? CAJA 66 


Correcta. 
La expresión lógica devuelve CIERTO. 


— ?HAZ"A "CIERTO 
? ESCRIBE NO :A “CIERTO 
Incorrecta. 


El operador lógico NO sólo admite un 
predicado. 


El LOGO muestra el mensaje: 
NO SE QUE DEBO HACER CON CIER- 


TO 
— ?HAZ"V 20 
? ES VAR? "V 
Fig. 8. Correcta. 
5: Asignamos a la variable V el valor 20 y 
— ?ESCRIBE Y CIERTO FALSO a continuación preguntamos si V es variable. 
Incorrecta. Obtendremos como resultado el mensaje 
Faltan las comillas delante de CIERTO CIERTO. 
y delante de FALSO. — ?BOVAR"V 
— ?HAZ'A 200 AV V 
2 HAZ 'B 60 Incorrecta, 
RAZA SO) 6D 12) La orden AV :V no se podrá realizar, ya 


? HAZ'DCA -33*.3)<(A-:B*.1) que anteriormente hemos borrado la variable 
? ESCRIBE O :C :D NE 


Mi El operador lógico NO sólo puede tener un 
dato. 


Mi Podemos preguntar al logo cuáles son las 
variables que se utilizan. 


M Las variables pueden ser borradas. 
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MANEJO DE SPRITES Y ELEMENTOS GRAFICOS! 


Ml El azar en la animación 


la hora de hacer nuestros 
propios juegos gráficos nor- 
malmente, y dependiendo 
del tipo de juego que quera- 
mos realizar, incluiremos 
una serie de enemigos que 
nos perseguirán e intenta- 
rán matarnos. Tal es el caso 
de programas como las moscas, los marciani- 
tos, el PAC-MAN y muchos otros. 

El movimiento de estos personajes ha- 
brá de ir encaminado a acercarse lo más po- 
sible a nosotros, intentar acorralarnos y matar- 
nos. La forma de realizar el programa para 
que haga esto depende mucho del juego que 
queramos realizar. Es por esto que no pode- 
mos dar una regla fija que nos indique qué al- 
goritmos tenemos que utilizar. 

También nos podemos encontrar pro- 
gramas en los que realmente no es necesario in- 
troducir otros personajes que se muevan por 
pantalla y nos dificulten la terminación del jue- 
go. En estos casos el juego suele ser lo sufi- 


100 REM ANSSSO SO SdOdlololojok 
110 REM * CARRERA LOCA x*k 
120 REM AooSaSIoNSlclolololojok 
130 REM 

140 REM soaoaloloalolololololojok ok 
150 REM * INICIALIZACION * 
160 REM ASS aolooolololololoK 
170 REM 

180 CLEAR 

190 RANDOMIZE TIMER 

200 LET SW=0 

210 LET X=5 

220 LET X1=5 

230 LET X2=35 

240 LET X3=35 

250 LET Y=12 
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cientemente complicado como para ponerle 
más trabas al usuario. Aun así, en programas 
como el GUSANO LOCO, que ya vimos en to- 
mos anteriores, se podría introducir la figura 
de un nuevo personaje que se encargase de 
hacernos la vida imposible. En este caso, di- 
cho personaje no tendría que moverse si- 
guiendo ninguna ley, sino que se movería 
aleatoriamente por la pantalla con el único 
propósito de molestarnos. 

A continuación vamos a ver un progra- 
ma en el que el movimiento del enemigo del 
usuario está realizado al azar. El programa es 
un juego muy famoso en todos los microorde- 
nadores, pero en versión simplificada. Le he- 
mos llamado CARRERA LOCA. El juego con- 
siste en movernos por la pantalla, dejando 
nuestro rastro, mientras intentamos no salirnos 
de la pantalla y no chocar contra nosotros mis- 
mos. A la vez que nosotros nos movemos, nues- 
tro enemigo se moverá dejando su propio ras- 
tro. El objetivo del juego es intentar arrinco- 
nar a nuestro oponente de forma que se cho- 
que con nosotros, consigo mismo o con los bor- 
des de la pantalla antes de que nosotros lo ha- 
gamos. 


260 LET Y1=12 

270 LET Y2=12 

280 LET Y3=12 

290 LET DX=1 

300 LET DY=0 

310 LET X5=-1 

320 LET Y5=0 

330 DIM A(40,23) 

500*REM 

510 REM AORSISIOOalololololololajololokjokok 

520 REM * PROGRAMA PRINCIPAL x 

530 REM AdSSORSdSdOa lalala lojololdlolojok 

540 REM 

550 CLS 

560 GOSUB 1000 

570 GOSUB 2000 

580 GOSUB 3000 

590 GOSUB 4000 

600 GOSUB 5000 

610 GOSUB 6000 

620 GOTO 560 

1000 REM 

1010 REM AsoRaSIOMRSSloldlolollalalololo lok 

1020 REM * LECTURA DEL TECLADO x 

1030 REM Aoaolo OSO laloldolojlalololok 

1040 -REM 

1050 LET A$=INKEYS 

1050 IF A$="" THEN RETURN 

1070 IF A$="P" OR A$="p" THEN LET DX=1:LET DY=0: RETURN . 
1080 IF A$="0" OR A$="0" THEN LET DX=-1:LET DY=0: RETURN 
1090 IF A$="Q" OR A$="q" THEN LET DX=0:LET DY=-1:RETURN 
1100 IF A$="A" OR A$="a" THEN LET DX=0:LET DY=1: RETURN 
1110 RETURN 

2000 REM 

2010 REM asada Siolalaloldalalolalajolalolalalollolalokok 
2020 REM * COMPROBACION DEL JUGADOR * 
2030 REM dRRSRSSOoRSSlOldSldolalajalojalalalajolallololok ak 
2040 REM 

2050 IF X+DX>40 OR X+DX<1 THEN GOTO 2090 
2060 IF Y+DY>22 OR Y+DY<1 THEN GOTO 2090 
2070 IF A(X+DX, Y+DY)=1 THEN GOTO 2090 
2080 RETURN 

2090 CLS 

2100 PRINT 

2110 PRINT "HAS PERDIDO ....” 

2120 PRINT "TE HAS CHOCADO ANTES" 
2130 PRINT "QUE TU ENEMIGO” 

2140 PRINT 

2150 GOTO 7000 

3000 REM 

3010 REM MAS MOISIO Olalla llo dOIOJOROIoK 
3020 REM * MOVIMIENTO DEL JUGADOR * 
3030 REM AA IOIOIOIOIOJOIOK: 
3040 REM 

3050 LOCATE Y1,X1 

3060 PRINT "o" 

3070 LET X=X+DX 

3080 LET Y=Y+DY 

3090 LOCATE Y, X 

3100 PRINT "O" 

3110 LET Yi=Y 

3120 LET Xi=X 
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é 


3130 
3140 


"4000 


4010 
4020 
4030 
4040 
4050 
4060 
4070 
4080 
4090 
4100 
4110 
5000 
5010 
5020 
1030 
5040 
5050 
5060 
5070 
5080 
5090 
5100 
5110 
5120 
5130 
5140 
6000 
6010 
6020 
6030 
6040 
6050 
6060 
6070 
6080 
6090 
6100 
6110 
6120 
6130 
6140 
7000 
7010 
7020 
7030 
7040 
7050 
7060 
7070 
7080 
7090 
7100 
7110 
7120 
7130 
7140 
7150 


LET A(X, Y)=1 

RETURN 

REM 

REM ARSS jaiaololo lolo jojokok 

REM * DIRECCION DEL ENEMIGO x* 

IAN EEE EEES 

REM 

IF SW<>5 THEN LET SW=SW+1: RETURN 
LET SW=0 

LET D=INT(RND*4+1) 

IF D=1 THEN LET X5=1:LET Y5=0: RETURN 
IF D=2 THEN LET X5=-1:LET Y5=0: RETURN 
IF D=3 THEN LET X5=0:LET Y5=-1:RETURN 
IF D=4 THEN LET X5=0:LET Y5=1: RETURN 
REM 

AN ES 
REM * COMPROBACION DEL ENEMIGO x*x 
ANI EEES 
REM 

IF X3+X5>40 OR X3+X5<1 THEN GOTO 5090 
IF Y3+Y5>22 OR Y3+Y5<1 THEN GOTO 5090 
IF A(X3+X5,Y3+Y5)=1 THEN GOTO 5090 
RETURN 

CL5S 

PRINT "HAS GANADO ....” 

PRINT "EL ENEMIGO SE CHOCO” 

PRINT "ANTES QUE TU." 

PRINT 

GOTO 7000 

REM 

ANS 

REM * MOVIMIENTO DEL ENEMIGO x* 
ANI SS 

REM 

LOCATE Y2,X2 

PRINT "=" 

LET Y3=Y3+Y5 

LET X3=X3+X5 

LOCATE Y3,X3 

PRINT "x" 

LET Y2=Y3 

LET X2=X3 

LET A(X3,Y3)=1 

RETURN 

REM 

AN EEES 

REM * OTRA PARTIDA? (S/N) * 

REM ASOMO iio OOO JOJOK 

REM 

PRINT 

PRINT 

PRINT "OTRA PARTIDA? (5/N)" 

LET A$=INKEY$ 

IF A$="" THEN GOTO 7080 

IF A$="S" OR A$="s”" THEN GOTO 100 

IF A$<>"N" AND A$<>"n"” THEN GOTO 7080 
PRINT 

PRINT "ENTONCES ...” 

PRINT " .-. ADIOS” 

END 
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ul 


y 


*5 7 
Ade 


Las teclas que tendrá'que usar el usua- 
rio para controlar su coche son las siguientes: 


P — Movimiento hacia la derecha. 
O — Movimiento hacia la izquierda. 
Q — Movimiento hacia arriba. 

A — Movimiento hacia abajo. 


Como siempre, a continuación apare- 
cen las modificaciones que hay que realizar 
en el programa para que pueda funcionar en 
todos aquellos ordenadores que no son IBM ni 
compatibles: 


COMMODORE: 
190 LET A=RND (-TD 
550 PRINT CHR$ (147) 
1050 GET A$ 
2050 IF X+DX>39 OR X+DX<0 THEN GOTO 2090 
2060 IF Y+DY>22 OR Y+DY <0 THEN GOTO 2090 
2090 PRINT CHR$ (147) 
3050 POKE 214, Y1l: POKE 211, X1 
3090 POKE 214, Y: POKE 211, X 
4070 LET D=INT (RND(1)'4+1) 
5050 IF X3+X5>39 OR X3+X5<0 THEN GOTO 


5090 
5060 IF Y3+Y5>22 OR Y3+Y5<O THEN GOTO 
5090 


5090 PRINT CHR$ (147) 

6050 POKE 214, Y2: POKE 211, X2 
6090 POKE 214, Y3: POKE 211, X3 
7080 GET A$ 


SPECTRUM: 
190 RANDOMIZE 
2050 IF X+DX>31 OR X+DX<0 THEN GOTO 2090 
2060 IF Y+DY>21 OR Y+DY <0 THEN GOTO 2090 
3050 PRINT AT Y1, X1; 
3090 PRINT AY Y, X; 
5050 IF X3+X5>31 OR X3+X5<0 THEN GOTO 
5090 
5060 IF Y3+Y5>21 OR Y3+Y5<0 THEN GOTO 
5090 
6050 PRINT AT Y2, X2; 
6090 PRINT AT Y3, X3: 


AMSTRAD: 
19 RANDOMIZE TIME 
3050 LOCATE X1, Y] 
3090 LOCATE X, Y 
6050 LOCATE X2, Y2 
6090 LOCATE X3, Y3 


MSX: 
190 LET A=RND (-TIME) 
3050 LOCATE X1l, Yl 
3090 LOCATE X, Y 
4070 LET D=INT (RND (1)'4+1) 
6050 LOCATE X2, Y2 
6090 LOCATE X3. Y3 


Si ejecutamos el programa, podemos 
ver cómo dos figuras distintas se mueven por 
la pantalla. Cada una de ellas lleva una trayec- 
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HAS FERDIDO 
TE_HAS CHOCADO ANTES 
QUE TU EMEMIGO 


OTRA PARTIDA? (3) 


Fig. 1. El programa nos dice cuándo ha habido un choque y 
quién ha sido el que ha chocado. 

toria diferente. La de la derecha lleva la tra- 
yectoria que nosotros le vamos indicando. La 
de la izquierda se mueve de una forma alea- 
toria por la pantalla. Estamos en un programa 
que es un ejemplo claro de movimiento simul- 
táneo. 

La estructura del programa es la misma 
que estuvimos estudiando en tomos anterio- 
res. En éstos dijimos que para realizar movi- 
mientos simultáneos, como el ordenador no 
puede hacer dos cosas a la vez, pero es lo su- 
ficientemente rápido para que dos cosas que 
ha hecho seguidas nos parezcan simultáneas, 
lo mejor era decirle al ordenador que el pri- 
mero moviese una de las figuras y después la 
otra. Este programa está realizado de una for- 
ma muy modular. Esto nos va a permitir variar 
cualquiera de las rutinas que lo componen sin 
influir para nada en el resto del programa. La 
estructura es la siguiente: 


— Lectura del teclado para ver si el ju- 
gador ha pulsado alguna tecla. 

— Comprobación de que la siguiente 
posición a la que se va a mover el jugador está 
permitida. Esto es, mirar si el jugador no se 
choca con nada en el siguiente movimiento. 

— Movimiento del jugador una posición 
hacia la última dirección indicada por el usua- 
rio, 

— Cálculo de la siguiente dirección so- 
bre la que se moverá el coche del enemigo. 

— Comprobación de que la siguiente 
posición en pantalla que va a ocupar el ene- 
migo está libre y no se va a chocar con nada. 

— Movimiento del enemigo una posi- 
ción en la dirección que ha calculado el pro- 
grama. 


Esta es la estructura general del cora- 
zón del programa. Una vez que se han reali- 


EXPERIENCIA Y PRÁCTICAS EN L0G0 [A 


zado todos estos pasos el programa los vuelve 
a realizar otra vez desde el primero. Esta se- 
cuencia se va repitiendo hasta que en alguna 
de las dos comprobaciones que hay, el orde- 
nador detecta que el jugador o el enemigo ha 
chocado contra algo. En este momento termi- 
na el juego. 


la] 
la] 
ls] 
l=] 
Ú 
la] 
[e] 


0000000 


o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
o 
a 


o 
Boooooo0o000000o 


Fig. 2. Un momento en la ejecución del programa. 


La explicación del programa es bastan- 
te sencilla, pues es muy similar a todo lo que 
hemos visto hasta ahora. Por ello, sólo daremos 
una rápida ojeada a su funcionamiento. La úni- 
ca parte del programa a la que dedicaremos 
más atención es la que se encarga de contro- 
lar el movimiento aleatorio del enemigo. 

En la línea 180 hacemos un CLEAR, Esto 
puede parecer un poco tonto, ya que si hace- 
mos RUN esto es como hacer CLEAR:GOTO 
principio del programa, pero no es así. La pri- 
mera vez que se ejecuta el programa esta ins- 
trucción no sirve para nada, pero a partir de 
la segunda, una vez que el jugador ha respon- 
dido que quiere echar otra partida, la función 
de esta línea es poner a cero todas las varia- 
bles y borrar la tabla que se encuentra en la 
línea 330. Si no pusiésemos esta instrucción, al 
llegar el programa a la línea 330 nos daría un 
arror por estar definiendo una tabla que ya 
está definida. 

En la línea 190 hacemos que el genera- 
dor de números aleatorios comience desde un 
punto desconocido para nosotros. Por ello, uti- 
lizamos el valor del tiempo que lleva el orde- 
nador encendido. 

Entre las líneas 200 y 330 inicializamos 
todas las variables que nos van a hacer falta 
durante el programa. Estas variables, para sa- 
ber lo que hace cada una de ellas, son: 

SW = Se encarga de controlar que el 
enemigo se ha movido al menos cinco pasos 
en una misma dirección. 
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X e Y = Posición en la pantalla de la ca- 
beza de nuestro coche. 

X1 e Y1 = Posición anterior de la cabe- 
za de nuestro coche. 

X2 e Y2 = Antigua posición de la cabe- 
za de nuestro enemigo. 

X3 e Y3 = Posición en la pantalla de la 
cabeza de nuestro enemigo. 

DX = Nos dice si nuestro movimiento se 
mueve en X y en qué dirección. 

DY = Nos dice si nuestro movimiento se 
mueve en Y y en qué dirección. 

X5 = Nos dice si el movimiento del ene- 
migo se mueve en X y en qué dirección. 

Y5 = Nos dice si el movimiento del ene- 
migo se mueve el Y y en qué dirección. 

A( = Esta tabla será como un espejo de 
la pantalla y almacenaremos un uno (1) en 
cada posición que se vaya ocupando en la 
pantalla. 

Entre las líneas 550 y 620 se encuentra 
el programa principal. Fíjese el lector la co- 
modidad del método y la sencillez con que se 
entiende todo. 

A continuación vienen todas las rutinas, 
de las que ya hemos hablado y en el mismo or- 
den que hemos visto. La única de ellas que nos 
interesa en este momento es la que se encar- 
ga de decidir en qué dirección será el si- 
guiente movimiento de nuestro enemigo. Esta 
rutina se encuentra a partir de la línea 4000. 

Línea 4050. Preguntamos si la variable 
SW es distinta de cinco (5). En caso afirmativo 
hacemos que SW se incremente en uno y de- 
volvemos el control al programa principal. 
Esta instrucción sirve para que el enemigo dé 
al menos cinco pasos en una misma dirección 
antes de cambiar a otra. 

Línea 4060. Si SW es igual a cinco, signi- 
fica que el enemigo ya ha dado cinco pasos 
en una misma dirección. En este momento po- 
demos poner de nuevo SW a cero para que en 
el siguiente movimiento siga contando. 

Línea 4070. Sacamos un número aleato- 
rio entre 1 y 4. Dependiendo del número que 
nos salga, el movimiento se realizará en una 
dirección o en otra. 

Línea 4080. Si nos salió un 1, entonces 
nos moveremos hacia la derecha. Por ello, ha- 
cemos que X5 sea igual a 1 e Y5 igual a 0. 

Línea 4090. Si salió un 2, entonces nos 
vamos a mover hacia la izquierda. En este caso 
X5 es igual a -1 e Y5 igual a 0. 

Línea 4100. Si el número aleatorio re- 
sulta ser un 3, entonces nos moveremos hacia 
arriba. X5 será igual a 0 e Y5 igual a -1. 


Línea 4110. Por fin, si el número resul- 
tante es un 4, entonces nos moveremos hacia 
abajo, por lo que X5 es igual a 0 e Y5 iguala 1. 

Como se puede comprobar al ver la eje- 
cución del programa, este método es un poco 
rupestre. Si realizamos el programa de esta 
manera lo único que conseguimos es que el 
enemigo no dure vivo más de diez segundos. 
Por ello, sería conveniente modificar esta ru- 


4000 
4010 
4020 
4030 
4040 
4050 
4060 
4070 
4080 
4090 
4100 
4110 
4120 
4130 
4140 
4150 

4160 


REM 
REM SSI lolo 
REM * DIRECCIÓN DEL ENEMIGO * 
REM SIRIA MISS lSIASIOIAljojojok 
REM 


LET SW=0 


LET D=INT(RND*4+1) 


LET D1=D 


000600 


TY COCHE 


El 


Fig. 3. 


Aparte de introducir este grupo de lí- 
neas en sustitución de las que había antes, to- 
dos los usuarios de ordenadores también ten- 
drán que introducir la siguiente línea al prin- 
cipio del programa: 


205 LET D1=0 


Las modificaciones que habría que ha- 
cerle a esta rutina para que funcionase en el 
Commodore y en el Spectrum son las siguien- 
tes: 


COMMODORE: 
4050 IF X5<>0 THEN IF Y3+Y85>22 OR Y3+Y5<0 
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tina para que fuese un poco más inteligente, 
pero sin perder el elemento de azar que la 
controla. Una posible solución al problema 
aparece en el programa 2. Lo único que tie- 
nes que hacer para introducir este programa 
en el número uno es borrar las líneas que van 
desde la 4050 hasta la 4110 e introducir las que 
aparecen a continuación. 


IF X5<>0 THEN IF Y3+Y5>22 OR Y3+Y5<1 OR A(X3+X5,Y3+Y5)=1 THEN LET SW=5 
IF Y5<>0 THEN IF X3+X5>40 OR X3+X5<1 OR A(X3+X5,Y3+Y5)=1 THEN LET SW=5 
IF SW<>5 THEN LET SW=SW+1: RETURN 


IF (D=1 AND D1=2) OR (D=2 AND D1=1) THEN GOTO 4090 
IF (D=3 AND D1=4) OR (D=4 AND D1=3) THEN GOTO 4090 


IF D=1 THEN LET X5=1:LET Y5=0: RETURN 
IF D=2 THEN LET X5=-1:LET Y5=0: RETURN 
IF D=3 THEN, LÉT X5=0:LET Y5=-1:RETURN 
IF D=4 THEN LET X5=0:LET Y5=1: RETURN 


OR A (X3+X5, Y34+Y5)=1 THEN LET SW=5 
4060 IF Y5<>0 THEN IF X3+X5>39 OR X3+X5<0 
OR A(X+X5, YS+Y5)=1 THEN LET SW=5 

4090 LET D=INT (RND (1)'1+1) 


SPECTRUM: 


4050 1F X5<>0 THEN IF Y3+Y5>21 OR Y3+Y5<0 
OR A (X3+X5, Y3+Y5)=1 THEN LET SW=5 

4060 IF Y5<>0 THEN IF X3+X5>31 OR X3+X5<0 
OR A (X3+X5, Y3+Y5)=1 THEN LET SW=5 


Si nos fijamos bien en el listado pode- 
mos apreciar que hay muchas cosas que son 
iguales, pero que también han aparecido al- 
gunas líneas distintas. Estas líneas van a rea- 
lizar una doble comprobación. Por una parte, 
comprobaremos que en el siguiente movi- 
miento no nos vamos a salir de la pantalla y 
que no vamos a chocar ni con nosotros mismos 
ni con el jugador. Por otra parte, y en la se- 
gunda comprobación, miramos que la nueva 
dirección de movimiento no sea contraria a la 
que llevamos ahora. Esto es, si no estamos mo- 
viendo hacia la derecha, que al cambiar de 
movimiento no nos movamos hacia la izquier- 
da, ya que nos chocaríamos con nosotros mis- 
mos. 

Se podrían haber introducido más mo- 
dificaciones en la rutina hasta el punto de que 
el coche enemigo nunca chocase. Esto tiene 
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un peligro, y es que si el enemigo queda arrin- 
conado, y no tiene sitio por donde salir, si la 


rutina es muy perfecta, al ejecutarse esta par-: 


te del programa, no se saldría nunca, ya que 
iría buscando continuamente la posible vía de 
escape y, al no haberla, el programa no con- 
tinuaría. Aun así, y para que el lector vaya co- 
giendo práctica, se le insta para que intente 
realizar una rutina tan perfecta como ésta. 


Ya para terminar vamos a ver cómo fun- 
ciona esta nueva rutina línea a línea. El lector 
podrá comprobar que aunque se han introdu- 
cido líneas de comprobación, la componente 
de azar no ha sido eliminada. 

Línea 4050. Miramos si el movimiento 
es hacia la derecha o hacia la izquierda. En 
caso afirmativo, preguntamos si el siguiente 
movimiento nos va a llevar al borde derecho 
o izquierdo de la pantalla o si la siguiente po- 
sición de nuestro movimiento está ocupada. En 
caso afirmativo, hacemos que la variable SW 
sea igual a 5 para, al llegar a la línea 4070, 
cambiar el sentido del movimiento. 

Línea 4060. Miramos si el moviminto es 
hacia arriba o hacia abajo. En caso afirmativo 
preguntamos si en el siguiente movimiento 
nos vamos a chocar con la parte superior o in- 
ferior de la pantalla o si la siguiente posición 
que queremos ocupar ya está ocupada. En 
caso afirmativo, hacemos que SW sea igual a 
5 para cambiar la dirección del movimiento. 

Línea 4070. Al igual que vimos en el 
programa 1, comprobamos si el enemigo ha 
dado ya cinco pasos. La única diferencia es- 
triba en que esta condición puede ser cierta 
antes de dar los cinco pasos si se ha variado 
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el valor de SW en alguna de las dos líneas an- 
teriores para prevenir el choque. 

Línea 4080. Hacemos que SW vuelva a 
valer cero (0). 


Línea 4090. Sacamos un número aleato- 
rio entre 1 y 4. 


Línea 4100. Preguntamos si el número 
que hemos sacado con la función RND implica 
un movimiento de la misma dirección, pero de 
distinto sentido del que teníamos hace unos 
instantes. Comprobamos que, si el movimien- 
to es hacia la derecha, el siguiente movimien- 
to no es hacia la izquierda. También compro- 
bamos la inversa. En caso afirmativo, nos vol- 
vemos a la línea 4090 para sacar otro número 
aleatorio. 


Línea 4110. Realizamos lo mismo que 
en la línea anterior, pero esta vez la compro- 
bación es para saber si el movimiento era ha- 
cia arriba y ahora es hacia abajo o viceversa. 
En caso afirmativo nos volvemos a la línea 4090 
para sacar otro número aleatorio. Gracias a 
este grupo de líneas, conseguimos que el co- 
che no dé una vuelta de 180 grados para cho- 
carse consigo mismo. 


Línea 4120. Una vez que hemos hecho 
todas las comprobaciones que queríamos, al- 
macenamos en Dl el valor de D. Esto nos sir- 
ve para comprobar en la siguiente ocasión que 
lo necesitemos que el movimiento no cambia 
sólo de sentido. 

A partir de la línea 4130 y hasta la 4160, 
el funcionamiento del programa es igual que 
lo que hemos explicado anteriormente. Por 
ello, no es necesario repetir la explicación. 


TRUCOS Y RUTINAS BASICAS INIA 


N tomos anteriores vimos 
cómo realizar un programa 
que gestionase nuestros fi- 
cheros. Una parte muy im- 
portante de este programa 
era la ordenación de las fi- 
chas. Para ello utilizamos 
una de las muchas rutinas 
que se pueden realizar. En este tomo y en los 
siguientes veremos algunas rutinas de orde- 
nación (también llamadas SORTs). Algunas se- 


. 


Antes de ver la primera de las rutinas, 
proponemos un programa que nos permitirá 
ejecutar dichas rutinas una a una. Con este 
programa podremos introducir por el teclado 
los distintos datos a ordenar, llamar a la rutina 
e imprimirlos, una vez ordenados en la panta- 
lla. Este programa, por supuesto, no es más 
que un programa ejemplo, y el lector tendrá 
que realizar su propio programa que gestione 
la rutina de ordenación que él desee con más 
precisión y mejor. 


rán numéricas, otras alfanuméricas, las habrá 
mixtas, más rápidas y más lentas, más compli- 
cadas y más sencillas. 


100 REM oa iaa lalolollalololololoK 
110 REM * PROGRAMA DEMO PARA EJECUTAR LOS PROGRAMAS x* 


120 REM k 2, 3, 4 Y 5. * 
130 REM ANedadalolRlalaa lalalala lalalala lalalala ololakjolalokalookok 
140 REM 

150 CLS 

160 INPUT "NUMERO DE ELEMETOS A ORDENAR ";NU 

170 CLS : 


180 DIM T$(NU) TE 
190 PRINT "INTRODUZCA LOS ELEMENTOS A ORDENAR UNO A UNO" 
200 FOR I=1 TO NU Ñ 
210 PRINT "ELEMENTO No. ”;1; 

220 INPUT T$(1I) 

230 NEXT 1 

240 CLS 

250 PRINT "ESTOS SON LOS ELEMENTOS A ORDENAR" 
260 PRINT 

270 FOR I=1 TO NU 

280 PRINT T$(1) 

290 NEXT 1 

300 PRINT 

310 PRINT "ORDENANDO. ESPERE UN MOMENTO” 

320 GOSUB 1000 

330 CLS 

340 PRINT "ESTOS SON LOS ELEMENTOS ORDENADOS” 
350 PRINT 

360 FOR I=1 TO NU 

370 PRINT T$(I) 

380 NEXT 1 

390 END 
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Las modificaciones que hay que reali- 
zar en este programa son muy pocas y sólo 
para el COMMODORE y SPECTRUM. Estas 


son: 


COMMODORE: 


150 PRINT CHR$(147) 
170 PRINT CHR$(47) 
240 PRINT CHR$(147) 
3%0 PRINT CHR$(147) 


ESTOS SOM LOS ELEMENTOS A 
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ORDEMNANDO. ESPERE UN MOMENTO 


Fig. 1. Lista de nombres a ordenar antes de llamar a cualquie- 


ra de estas rutinas. 


A continuación vamos a ver la primera 
de las rutinas de ordenación. Esta rutina em- 
plea el método llamado de burbuja o binario. 


SPECTRUM: 


Sólo hay que cambiar la línea 180 por: 
180 DIN T$(NU,30) 


El segundo número dentro de los pa- 
réntesis nos dice el número máximo de carac- 
teres que puede tener cada elemento a orde- 
nar. Si el usuario quiere ordenar cadenas de 
caracteres que tengan más de 30 caracteres 
(o menos), tendrá que cambiar dicho número 
por el que le interese. 


ESTOS SON LOS ELEMENTOS ORDENADOS 
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Fig. 2. La misma lista de nombres una vez ordenada. 


Es el ejemplo más sencillo de ordenación. Este 
tipo de ordenación fue el que utilizamos en el 
programa gestor de ficheros. 


1000 REM oooO SISSI llo lallololok 


1040 REM * VARIABLES QUE HAY QUE PASARLE AL PROGRAMA 


pa 
Pp 
Pp 
o 
5 
ES 
* 


p 
Pp 
a 
o 
x 
HE IE EINEN E 


1020 REM * <<< ORDENACION NUM.POR EL METODO DE BURBUJA CON MARCA >>> 


NUMERO DE ELEMENTOS A ORDENAR 
TABLA CON LOS ELEMENTOS A ORDENAR 


“VARIABLES INTERNAS USADAS POR LA RUTINA 


VARIABLE AUXILIAR 


VARIABLE INDICE DEL PRIMER BUCLE 
VARIABLE INDICE DEL SEGUNDO BUCLE 
SWICH INDICADOR DE LA ORDENACION 


LA SUBRUTINA NOS RETORNA CON LOS DATOS 
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KA AAKIKIKKEXARKAARAKIAA SR 


1190 REM * ORDENADOS EN T(). 
1200 REM'* 


*k 
* 


1210 REM Adal lodo jojo lola joio ajajajaja iaa lalalala lalalala look 


1220 REM 

1230 LET SW=0 

1240 FOR I=1 TO NU-1 
1250 
1260 NEXT 1 

1270 IF SW=1 THEN GOTO 1230 
1280 RETURN 


El programa no necesita ninguna modi- 
ficación para funcionar. Puede funcionar tal y 
como aparece en todos los ordenadores. 


Se recuerda al lector que para que el 
programa funcione tiene que tener definida la 
variable alfanumérica T$O, así como el núme- 
ro de elementos a ordenar (NU). Para ello se 
puede utilizar el programa 1 que hemos visto 
un poco más arriba. Lo único que hay que ha- 
cer es unir los dos en un mismo listado. 


El funcionamiento del programa es muy 
sencillo. El método consiste en comparar el 
primer elemento a ordenar con todos los de- 
más. Cada vez que nos encontremos uno que 


IF T(1I+1)<T(I) THEN LET SW=1:LET A=T(1+1):LET T(I+1)=T(1):LET T(I)=A 


es menor que éste, intercambiaremos sus po- 
siciones, con lo que el nuevo elemento pasará 
a ser el menor y a colocarse en la cabeza de 
la lista. Una vez que nos hemos recorrido la lis- 
ta entera y hemos puesto el más pequeño-a la 
cabeza de ésta, realizamos la misma opera- 
ción, pero pensando en la segunda posición 
de la lista. Este proceso lo repetimos hasta que 
hemos llegado hasta el último elemento de la 
lista. En ese momento la lista con todos los ele- 
mentos estará ordenada. 

El siguiente programa, que tampoco ne- 
cesita de ninguna variación, utiliza un método 
muy parecido al anterior, pero en ocasiones 
puede resultar más rápido. 


1000 REM aaa lalalala lalalala lalalala lolSlolalojojolok 


1010 REM x 

1020 REM * <<< ORDENACIÓN POR EL METODO DE BURBUJA CON MARCA >>> 
1030 REM * 

1040 REM * VARIABLES QUE HAY QUE PASARLE AL PROGRAMA 
e EA AE EE O a E 
1060 REM x 

1070 REM Xx NU  = NUMERO DE ELEMENTOS A ORDENAR 

1080. REM Xx T$() = TABLA CON LOS ELEMENTOS A ORDENAR 
1090 REM x 

1100 REM * VARIABLES INTERNAS USADAS POR LA RUTINA 
O E A 
1120 REM * 

1130 REM x A$  = VARIABLE AUXILIAR 

1140 REM * I = VARIABLE INDICE DEL PRIMER BUCLE 
1150-REM * J = VARIABLE INDICE DEL SEGUNDO BUCLE 
1160 REM Xx SW = SMWICH INDICADOR DE LA ORDENACION 
1170 REM x Ñ 

1180 REM * LA SUBRUTINA NOS RETORNA CON LOS DATOS 
1190 REM * ORDENADOS EN T$() 

1200 REM *x 


E E TE E E ES 


1210 REM AO OO JOR JO ROO ORO ROJO OJO RIOR ONO ORO IO OOO 


1220 REM 

1230 LET SW=0 

1240 FOR I=1 TO NU-1 
1250 
)=A$ 
1260 NEXT I 

1270 IF SW=1 THEN GOTO 1230 
1280 RETURN 


IF T$(1+1)<T$(I) TBEN LET SW=1:LET A$=T$(I+1):LET T$(1+1)=T8(1):LET T3(I 
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El defecto del programa 2 radicaba en 
que si la lista a ordenar estaba ya ordenada, 
la rutina no se daba cuenta de ello y realizaba 
todas las comparaciones pertinentes. 'Este' 
nuevo programa sí realiza dicha comparación 
y, en caso de que la lista esté ordenada, vuel- 
ve al programa principal. 


Este segundo programa puede parecer 
un poco inútil, pero nada más lejos de la rea- 
lidad. Hay veces que, al realizar nuestros pro- 
pios programas, si trabajamos con un fichero, 
éste se ordena automáticamente al final de la 
sesión. Como puede darse el caso de que ha- 
yamos ejecutado el programa sin realizar nin- 
gún cambio en los registros que gestiona (por 
ejemplo, si lo hemos utilizado sólo para listar), 
si el programa se ordena automáticamente al 
terminar la sesión, es preferible que la rutina 
de ordenación detecte si el fichero se encuen- 
tra ya ordenado. 


La forma de comprobar que dicho fi- 
chero está ordenado es definir una variable 


SWICH (como un interruptor) con valor cero. 
Si dentro de la primera vuelta tenemos que 
cambiar dos elementos de lugar, eso signifi- 
cará que el fichero no estaba ordenado y en- 
tonces hacemos que dicha variable tome el va- 
lor uno. En el caso de que no hayamos tenido 
que cambiar ningún elemento de sitio, como 
SW seguirá valiendo cero, gracias a la com- 
probación de la línea 1270 retornaremos al 
programa principal. 

Si SW tenía valor uno nos volvemos a la 
línea 1230 para realizar una vuelta más. En ese 
momento SW vuelve a coger valor cero. Con 
esto se consigue que si la lista se ordena de 
varias pasadas, pero no de todas, se detecta- 
rá y se saldrá de la rutina, con lo que el tiem- 
po de ejecución de ésta puede ser menor que 
el del programa visto anteriormente. 

La tercera rutina que vamos a ver utili- 
za un método algo distinto y más complicado 
para ordenar la lista de números. Este tipo de 
ordenación se llama búsqueda del máximo y 
del mínimo. 


1000 REM delo dajaloaioalojalola lalalala lalala lalala lalola lalalala lalalala lola ldjolojala lalola lola lalolIOIoIojoK 


1010 REM 
1020 REM 
1030. REM 
1040 REM 
1050 REM 
1060 REM 
1070 REM 
1080 REM 
1090 REM 
1100 REM 
1110 REM 
1120 REM 
1130 REM 
1140 REM 
1150 REM 
1160 REM 
1170 REM 
1180 REM 
y) 1190 REM 

1200 REM 

1210 REM 

1220 REM 

1230 REM 

1240 REM 

1250 REM 
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ORDENADOS EN T3(). 
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<<< ORDENACION POR EL METODO DE BUSQUEDA MAX Y MIN >>> 


VARIABLES QUE BAY QUE PASARLE AL PROGRAMA 


NUMERO DE ELEMENTOS A ORDENAR 
TABLA CON LOS ELEMENTOS A ORDENAR 


VARIABLE AUXILIAR 

VARIABLE INDICE DEL PRIMER BUCLE 
VARIABLE INDICE DEL SEGUNDO BUCLE 
SWICH INDICADOR DE LA ORDENACION 
VARIABLE CON EL ELEMENTO MAS ALTO 
VARIABLE POSICION ELEMENTO MAS ALTO 
VARIABLE CON EL ELEMENTO MAS BAJO 
VARIABLE POSICION ELEMENTO MAS BAJO 
VARIABLE AUXILIAR 


LA SUBRUTINA NOS RETORNA CON LOS DATOS 


XKAKAAAAXAAKAAAEXXAA RARA 


1260 REM osado iodo lalaldla dada lalola jaalolSlala alojada loja olaa OIOIOJOK 


1270 REM 
1280 FOR I=1 TO INT(NU/2) 


1290 LET M$=CHR$(255) 

1300 LET W$=CHR$(0) 

1310. LET N=NU-1+1 

1320 FOR J=1 TO N 

1330 IF T$(J)<M$ THEN LET M$=T$(J):LET M=J 
1340 IF TS$(J)>W$ THEN LET W$=T$(J):LET W=J 
1350 NEXT J 

1360 LET I$=T$(N) 
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1370 
1380 
1390 
1400 
1410 
1420 NEXT I 
1430 RETURN 


LET T$(M)=T$(I) 
LET TS(W)=T$(N) 
LET T$(1)=M$ 
LET TS$(N)=W$ 


Este método de ordenación consiste en 
encontrar el mayor y el menor elemento de la 
lista y colocarlos en la primera y en la última 
posición, respectivamente. A continuación se 
buscan los dos siguientes por arriba (el si- 
guiente más mayor) y por abajo (el siguiente 
menor) y se ponen en la segunda y penúltima 
posición de la tabla. Este proceso se va repi- 
tiendo hasta que toda la lista esté ordenada. 
Lo que tiene de bueno este sistema es que co- 
loca dos elementos de la lista cada vez que tie- 
ne que hacerlo; con ello se consigue que el 
programa dé la mitad de pasadas que los an- 
teriores. El único problema que tiene es que 
no nos permite comprobar si el fichero estaba 
clasificado con antelación. 

Como este método es algo más compli- 
cado y desconocido, vamos a explicar su fun- 
cionamiento línea a línea: 

Línea 1280. Comenzamos un bucle des- 
de (1) hasta la mitad de la lista de elementos 
a ordenar. Esto es así porque como en cada 
paso se organizan dos de los elementos, sólo 
hay que hacer la comprobación la mitad de las 
veces. 

Línea 1290. Hacemos que M$ sea igual 
al carácter 255. Esta variable se encargará de 
ir almacenando el elemento menor de la lista. 
En un principio se asigna el carácter 255 por- 
que no puede haber ningún elemento con un 
código ASCII mayor que éste. 

Línea 1300. Hacemos que W$ sea igual 
al carácter número 0. Esta variable será la en- 
cargada de almacenar el mayor elemento de 
la lista. Al principio toma el valor del carácter 
0, porque no puede haber un elemento de la 
lista con un código ASCII menor. 

Línea 1310. Hacemos que la variable N 
tome el valor del último elemento de la lista. 
En la primera vuelta del bucle tenemos que | 
es igual a uno (1) y que N es igual a NU. En la 
segunda tenemos que l es igual a dos (2) y N 
a NU-1 y así sucesivamente. Según se puede 
apreciar, después de cada vuelta, estas dos 
variables se van moviendo hacia el centro de 
la lista. Una va aumentando, mientras la otra 
va disminuyendo. 

Línea 1320. Comenzamos un nuevo bu- 
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IF W=1 AND M<>N THEN LET T$(M)=1I$ 


cle que va desde I hasta N, Esto está hecho así 
para que dicho bucle en la primera vuelta coja 
los elementos que van desde el primero al úl- 
timo (NU). La segunda vez que se ejecute irá 
desde el segundo al penúltimo (NU-1) y así 
hasta el final. Con esto se consigue que los ele- 
mentos que ya han sido ordenados no sean to- 
cados en las restantes vueltas del bucle. 

Línea 1330. Comprobamos si el carác- 
ter que estamos apuntando con la variable ] es 
menor que M$. En caso afirmativo hacemos 
que Mf$ tome dicho valor y almacenamos en la 
variable M la posición de este elemento den- 
tro de la lista. 

Línea 1340. Comprobamos si el ele- 
mento que nos toca comparar es mayor que 
W'$. Si es así, entonces hacemos que W$ tome 
el valor de este elemento y almacenamos su 
posición dentro de la lista en W. 

Línea 1350. Aquí termina el segundo 
bucle, En el correr de este bucle, y cuando 
termina, nos encontramos que, gracias a las lí- 
neas 1330 y 1340, tenemos almacenado en M$ 
el menor de los elementos entre los límites de 
la lista impuestos por 1 y N. Lo mismo ocurre 
con W$, en esta variable queda almacenado 
el mayor de todos. Las posiciones que éstos 
ocupaban anteriormente estarán almacenadas 
en las variables numéricas M y W. 

Línea 1360. Almacenamos en la varia- 
ble alfanumérica 1$ el valor de T$(n). T$(n) es 
el último elemento del grupo de la lista que es- 
tamos ordenando. 

Línea 1370. Almacenamos en T$(m) el 
valor de T$(). Con esto lo que hacemos es 
cambiar el lugar dentro de la lista del primer 
elemento de ésta. 

Línea 1380. Almacenamos en T$(w) el 
valor de T$(n). Lo mismo que en la línea ante- 
rior, pero con el último elemento de la lista. 

Línea 1390. Almacenamos en T$() el 
valor de M$. Hay que recordar que Mf$ tiene 
almacenado el elemento más bajo de la lista. 

Línea 1400. Almacenamos en T$(n) el 
valor de W$. W$ tiene almacenado el mayor 
elemento de la lista. Estas cuatro últimas lí- 
neas, como bien se puede apreciar, son las en- 
cargadas de intercambiar ciertos elementos 
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de la tabla entre sí. Se colocan los elementos 
mayor y menor en los extremos de la lista y 
los elementos que antes había en dichos ex- 
tremos se colocan en las posiciones que antes 
ocupaban los elementos mayor y menor. 
Línea 1420. Aquí termina el bucle. 
Línea 1430. Devolvemos el control al 
programa inicial que llamó a esta rutina. 


1000 
1010 
1020 
1030 
1040 
1050 
1080 
1070 
1080 
1090 
1100 
1110 
1120 
1130 
1140 
1150 
1160 
1170 
1180 
1190 
1200 
1210 
1220 
1230 
vo 1240 
1250 
1260 
1270 
1280 
1290 
1300 


mon 


KK AA 


* 


VARIABLE AUXILI 


VARIABLE AUXILI 


> XA A E E E OK 


ORDENADOS EN T$(). 


FOR I=1 TO NU-1 
LET V=1 
FOR J=1+1 TO NU 


NEXT J 


NEXT I 
RETURN 


Esta nueva rutina de ordenación es más 
rápida siempre que no tengamos que ordenar 
una serie muy grande de elementos. El méto- 
do de ordenación se llama por intercambio, 
porque vamos intercambiando las posiciones 
de los elementos hasta que toda la lista está or- 
denada. En esto la rutina funciona igual que la 
anteriormente vista de burbuja. Se denomina 
retardado porque en cada pasada por la lista 
no se realiza ningún cambio de posición hasta 
que no hemos encontrado el menor elemento 
de ésta. 

Para saber cuál es el menor elemento 
de la lista utilizamos una variable numérica a 
modo de puntero (V). Esta variable irá apun- 
tando al elemento más pequeño de la lista. 
Cada vez que nos encontremos con un ele- 


<<< ORDENACION POR EL METODO DEL INTERCAMBIO RET. 


VARIABLES QUE HAY QUE PASARLE AL PROGRAMA 


NÚMERO DE ELEMENTOS A ORDENAR 
TABLA CON LOS ELEMENTOS A ORDENAR 


a A td toto 


AR 


VARIABLE INDICE DEL PRIMER BUCLE 
VARIABLE INDICE DEL SEGUNDO BUCLE 


AR 


LA SUBRUTINA NOS RETORNA CON LOS DATOS 
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El último tipo de ordenación (SORT) que 
vamos a ver en este tomo es el llamado de in- 
tercambio retardado. En realidad, es una va- 
riante del de burbuja, pero en ocasiones pue- 
de ordenarnos una lista de elementos mucho 
más rápido. 


ES 


>>> 


KA AAA AE EA AAA 


ASS SO Oll iO l look loa llo OlOlololololok 


J 


IF T$(J)<TS(V) THEN LET V=J 


IF V<>I THEN LET A$=T$(1):LET T$(1)=T$(V):LET TS(V)=A4S 


mento más pequeño que al que apunta el pun- 
tero, cambiaremos el valor del puntero. 

Una vez que hemos terminado de ob- 
servar y comparar toda la lista, colocamos el 
elemento al cual apunta el puntero en la pri- 
mera posición, el elemento que estaba en la 
primera posición en la posición a la que apun- 
ta el puntero y continuamos con la siguiente 
vuelta del bucle partiendo desde el siguiente 
elemento. 


pe NOTA: Hay que tener en cuenta que 
estas rutinas están preparadas para ordena- 
ciones alfanuméricas. Esto significa que pue- 
den ordenar lo mismo letras que números, que 
letras y números. Pero, si el lector necesita or- 
denar solamente números, se le recomienda 


A A A A A E 


que cambie toda las variables alfanuméricas de cómo quedaría el programa 3 preparado 
por numéricas para aumentar la velocidad de para ordenar sólo series de números es el que 
ordenación del SORT en cuestión. Un ejemplo aparece como programa 6. 


AA ES 


1010 REM * - * 

1020 REM * <<< ORDENACION POR EL METODO DE BURBUJA >>> * 

1030 REM * ) E ? k 

1040 REM * VARIABLES QUE HAY QUE PASARLE AL PROGRAMA k 

1050 REM * ========= i++ ==toos co iiSon+n---- * 

1060 REM * * 

: 1070 REM * NU = NUMERO DE ELEMENTOS A ORDENAR *k 

1080 REM * T$() = TABLA CON LOS ELEMENTOS A ORDENAR * 

1090 REM * * + 
1100 REM * VARIABLES INTERNAS USADAS POR LA RUTINA * ” 
AO A A A o o * 

“1120 REM * * , 
1130 REM * AS = VARIABLE AUXILIAR * 

1140 REM * I = VARIABLE INDICE DEL PRIMER BUCLE *k 

1150 REM * J = VARIABLE INDICE DEL SEGUNDO BUCLE * 

1160 REM *x * 

1170 REM * LA SUBRUTINA NOS RETORNA CON LOS DATOS ES 

1180 REM * ORDENADOS EN T$(). - * 

1190 REM x* ; *k 

1200 REM AaoSdaoNola aloja lalalala lalalala lalalala lalalala lola iaa lalalala look 

1210 REM 


1220 FOR I=1 TO NU=1 

1230 FOR J=1+1 TO NU 

1240 1F T$(I)>TS(J) THEN LET A$=T$(1):LET TS(1)=T8(J):LET TS$(J)=A$ 
1250 NEXT J 7550 

1260 NEXT 1 

1270 RETURN 
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EL TALLER DEL HARDWARE NI 


y ANALISIS 
MW DESEÑALES ACUSTICAS 


N un tomo anterior hemos 
presentado la posibilidad 
de hacer hablar al ordena- 
dor mediante un circuito de 
síntesis utilizando segmen- 
tos elementales de voz que 
hemos denominado alófo- 
nos. Como primer paso para 
comprender el proceso de análisis de voz, va- 
mos a describir circuitos que nos permitan 
descomponer las señales acústicas en general 
y las relacionadas con la voz en particular en 
sus componentes espectrales y su variación 
con el tiempo, para poder conocerlas a fondo. 

Con un adaptador para adquisición de 
datos analógicos, como el descrito en uno de 
los tomos anteriores, podríamos adquirir la se- 
ñal eléctrica resultante de la generada por un 
micrófono y almacenarla en memoria para su 
tratamiento. Mediante programas apropiados 
podríamos determinar los parámetros funda- 
mentales que definen la señal: variación de la 
amplitud, espectro de frecuencias, tono funda- 
mental de la voz, formantes, etc. El problema 
puede resultar complejo si consideramos la 
cantidad de memoria necesaria para almace- 
nar una determinada longitud de tiempo de 
evolución de la señal. 

Si nos limitamos al estudio de señales 
producidas por la voz, hemos de definir la fre- 
cuencia de muestreo mínima para adquirir la 
señal con toda la resolución necesaria. La voz 
humana posee frecuencias comprendidas en- 
tre unos 50 y 5.000 Hz. La frecuencia inferior 
corresponde a la voz de hombre de tono muy 
bajo, lo normal es que ronde los 200 Hz. La fre- 
cuencia superior corresponde a los armónicos 
más altos de la voz de mujer y niños. La ban- 
da pasante necesaria para poder obtener una 
calidad aceptable para reconocer la voz de 
una persona es de 300 a 3.400 Hz, que es el an- 
cho de banda de los circuitos utilizados nor- 
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malmente en telefonía. Si se dispone de mayor 
ancho de banda, la calidad es mayor y pue- 
den percibirse mayores detalles de entona- 
ción, acento y demás características peculia- 
res de cada voz. 

De acuerdo con la fórmula de Shannon 
sobre el muestreo, ya mencionada en el tomo 
de adquisición de datos analógicos, el núme- 
ro de muestras debe ser superior al doble de 
la frecuencia del armónico más alto existente 
en la señal. Para la digitalización de voz sería 
necesario por lo menos 6.800 muestras por se- 
gundo. En telefonía digital se utiliza normal- 
mente muestreo a 8.000 muestras por segun- 
do, que cubre el margen necesario con cre- 
ces, 

En cuanto a la resolución, es interesan- 
te disponer del mayor número de niveles po- 
sible, para poder admitir un amplio margen de 
intensidades de voz. En la telefonía digital se 
utiliza una compresión previa de la señal, que 
consiste en aplicar una etapa no lineal, de for- 
ma que se realza la codificación de los nive- 
les bajos, con lo que se mejora la respuesta 
real del sistema para un número determinado 
de bits de codificación. El número de niveles 
usual es de 256, correspondientes a 8 bits. 

Sin embargo, vamos a contemplar una 
solución más práctica, aunque menos precisa, 
para representar la voz y la evolución de las 
señales acústicas, como introducción al trata- 
miento de las señales. 

Si recordamos uno de los métodos idea- 
dos para el análisis y síntesis de voz, denomi- 
nado VOCODER, descrito en el tomo anterior, 
vemos que su esquema de bloques se compo- 
ne de un amplificador de entrada y de un con- 
junto de filtros en paralelo, para diferentes fre- 
cuencias del espectro audible. Las amplitudes 
captadas por estos amplificadores y su evolu- 
ción en el tiempo, describen la señal de una 
forma muy gráfica y palpable. Utilizando el or- 


denador, podríamos incluso analizar y almace- 
nar los valores correspondientes a las frecuen- 
clas para determinadas voces y utilizarlo para 
poder controlar nuestro ordenador directa- 
mente con la voz. Deberemos diseñar un cir- 
cuito que permita este tipo de captación de se- 
ñal y el programa correspondiente que lo 
haga efectivo y utilizable. 


A AMPLITUD 

ARANA Y 
P | Min | Ya | Y llo Un | Vr Us bm ¡pro A a lor 

y W ' W V | 

TIEMPO 

Ll e e pS 
0 0,1 0,2 0,3 04 segs. 
Fig. 1. «Señal de voz. 


Es interesante observar la forma de 
onda de una señal generada por un micrófono 
a partir de la voz. Lo que nos muestra el osci- 
loscopio es la amplitud de la onda de presión 
producida por el aire en las cuerdas bucales 
y modulado por la boca. Se presentan dos ti- 
pos de ondas: 


— Ondas de apariencia repetitiva, más 
o menos veces y de amplitud bastante gran- 
de. Corresponden a la pronunciación vocáli- 
ca. Son las sílabas sonoras. 


— Ondas de apariencia aleatoria, de 
amplitud muy baja. Corresponden a la pronun- 
ciación de consonantes. 


KHz 


FRECUENCIA 


A/A NN), 


Ap DAA A 
11/90) 
AA 


dl 


TIEMPO 


0 0,1 


0,2 


0,3 0,4  Segs. 


Fig. 2. Espectro de la señal. 
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La observación de la misma señal, pero 
contemplando el espectro de frecuencias emi- 
tidas, requiere un equipo más costoso y no fá- 
cilmente disponible: un analizador de espec- 
tro en tiempo real. 

Vamos a ver que con algunos circuitos 
y nuestro ordenador personal, podemos gene- 
rar un diagrama muy parecido al espectro en 
tiempo real. Generalmente sería necesario 
disponer de algún circuito que hiciera el cálcu- 
lo del espectro de forma rápida, mediante 
la técnica de la transformada rápida de Fou- 
rier, pero vamos a ver que un poco de hard- 
ware puede resolvernos el problema de-una 
manera más eficiente. 


Mi Diagrama de bloques 


Aunque pueden ofrecerse diferentes 
soluciones para resolver el problema que nos 
planteamos, vamos a limitarnos a una solución 
práctica y efectiva, que ya ampliaremos, si se- 
guimos investigando en el tema. 


PANTALLA 


TECLADO 


Fig. 3. Diagrama de bloques. 


En el diagrama se muestran los bloques 
principales del circuito: 


— Micrófono. 

— Amplificador de entrada, con control 
de nivel. 
Filtros de cada banda. 
Comparadores. 
Interfaz 'con el ordenador. 
Relo). 
Circuito de cuenta de pasos por 
cero. 

— El ordenador personal. 


EL TALLER DEL HARDWARE 
Ml Amplificador de entrada 


MICROFONO 


10K  10pF 


100 K 47 K 


10K 


ENTRADA 
AMPLIFICADA 


LM741 


22 y F 


100 K 


Fig. 4. Amplificador de entrada. 


Empezamos amplificando la señal, para 
adaptar los niveles propios del micrófono a los 
niveles necesarios para el proceso en los fil- 
tros. La ganancia se fija mediante un potenció- 
metro y deberá ajustarse en cada caso según 
el equipo de que dispongamos. El amplifica- 
dor también filtra las frecuencias superiores e 
inferiores para reducir en lo posible los erro- 
res de falsa interpretación de frecuencia. 


Ml Indicador de nivel. 


+5 


ENTRADA 
AMPLIFICADA 


INDICADOR 
NIVEL 


Fig. 8. Indicador de nivel. 


Conviene incluir en la salida del ampli- 
ficador un indicador de nivel, para controlar 
visualmente cuando estamos dando señal de 
amplitud suficiente. La salida del indicador de 
nivel podría utilizarse como medida de la 
energía de la señal. Por supuesto, que para po- 
der ser utilizada por el ordenador sería nece- 
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sario realizar la conversión analógico/digital. 
La señal se compara con un nivel, ajustable 
mediante un potenciómetro, y si supera un de- 
terminado umbral hace lucir un diodo LED. 


Mi Filtros de banda 


SALIDA 


IN914 


Fig. 6. Circuitos pasa-banda. 


Los filtros de cada banda están diseña- 
dos mediante amplificadores operacionales en 
configuración pasabanda. No necesitan ser de 
una frecuencia muy exacta ni de un factor de 
calidad elevado, solamente es necesario que 
se puedan distinguir las frecuencias en saltos 
separados aproximadamente una octava cada 
uno. Las constantes de tiempo para la fijación 
de las frecuencias de corte vienen fijadas por 
los valores de las resistencias Rl1, R2, R3 y R4 
y los condensadores C1 y C2. En el esquema 
completo se indican los valores para cada ban- 
da, así como en la tabla adjunta: 


Tabla 1 
Valores de resistencias y condensadores 


3 ALPUERTO DE ENTRADA 
(PCUENTA (0)) 


82K |750K |430K 


PCUENTA (1-7) 


Comparadores ENTRADA 


+5 


sama  AMPLIFICADA 
3, O 


AJUSTE ENTRADA oO 
NIVEL 


220 


O 
AO DE PCONTROL 


AJUSTE Fig. 8. Circuito de muestreo. 
NIVEL 
ENTRADA ajustar de manera manual. El circuito emplea- 
do es el LM855 en configuración astable, ajus- 
table mediante una resistencia variable. En 
cualquier caso, siempre podremos activarlo 
La salida de cada filtro es rectificada y por programa si así se desea. El circuito inclu- 
filtrada para dar una señal proporcional a la ye la medida del número de pasos por cero 


Fig. 7. Circuitos comparadores. 


amplitud de la señal en la banda correspon- de la señal, que se emplea como indicación 
diente. La señal de amplitud se compara con grosera a.e la frecuencia media en el interva- 
un nivel de referencia y se genera un nivel ló- lo. Puede considerarse con bastante aproxi- 
gico indicativo de estar por encima o por de- mación que es un valor proporcional al tono 


bajo de un umbral. En realidad, deberíamos de la señal. El contador de pasos por cero 
medir el valor del nivel con al menos 6 bits de debe ser puesto a cero después de cada lec- 


precisión, pero para este experimento es sufi- tura del valor alcanzado en el intervalo ante- 
ciente con obtener la indicación de que la se- rior. 

ñal es superior o inferior a un nivel determi- 

nado. . Ml Interfaz 


Puede hacerse una simplificación de la 
comparación mediante circuitos inversores DE DON AL BUS 
con histéresis del tipo 74LS14 o 74LS132, aun- FILTROS e DE DATOS 
que el resultado no será tan preciso. 


Di 

D, 

Ml Reloj y circuito de muestreo E 
3 

Las señales indicadoras de nivel en cas 

cada uno de los filtros deben ser muestreadas >, 
periódicamente para tener una indicación y 
temporal de la ocurrencia de cada una de ds 


ellas. La lectura debería sincronizarse con 
esta señal de muestreo, Podría utilizarse el re- 
loj interno del ordenador para determinar 
cuándo se realizan las muestras, pero es pre- 
ferible generarlo externamente para poderlo Fig. 9 Circuito de interfaz 


SELRO y 
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EL TALLER DEL HARDWARE MEN 


La conexión al ordenador puede hacer- 
se como en los otros dispositivos que hemos 
diseñado, a través de la tarjeta de ampliación 
de puertos de entrada salida, utilizando un 
puerto de entrada para las señales y un bit 
adicional para el pulso de sincronización. La 
lectura del número de pasos por cero de la se- 
ñal requerirá además otro puerto de entrada 
y una línea de puesta a cero del contador. Las 
señales de acceso al bus serán seleccionadas, 
como en circuitos anteriores, con los circuitos 
de decodificación correspondientes a -SELRO 
y SELR]1. 


MICROFONO 


E Circuito completo 


Se muestra el circuito completo con to- 
dos los bloques funcionales explicados en los 
apartados anteriores. Se muestran solamente 
el primero y el último de los circuitos de fil- 
tro. Los demás se definen exactamente igual, 
con los valores de los componentes según la 
tabla 1. Los amplificadores operacionales 
pueden ser de cualquier tipo, pues las fre- 
cuencias de trabajo son realmente muy bajas. 
Es recomendable usar del tipo LM741 en sus 
versiones de 2 ó 4 amplificadores en un cir- 
cuito, con objeto de reducir espacio y proble- 
mas de cableado. 


Fig. 10. Circuito completo. 


il Montaje 


La complejidad del circuito es peque- 
ña, pero son muchos los componentes que es 
necesario utilizar para que el sistema monta- 
do tenga aplicación práctica. Para empezar 
podríamos montar el amplificador de entrada 
y por lo menos dos etapas de filtro, los corres- 
pondientes a las frecuencias en las bandas de 
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120 y 1000 Hz, que es donde normalmente se 
concentra la energía de la voz. Con dos filtros 
y la conexión al ordenador podemos observar 
la evolución de las componentes en las ban- 
das indicadas y ejercitar los programas que 
se acompañan. 

Cuando ya tengamos práctica con el 
empleo del sistema, podemos continuar con el 
montaje de los demás filtros y la medida del 
número de pasos por cero. 


lA! Programación de la tarjeta do que esté disponible en el puerto de entra- 
E da. Se lista a continuación un pequeño progra- 
El programa de adquisición de las se-— ma, que puede servir de ejemplo para elabo- 
fíales es muy simple, pues se reduce a mues-  raruno más completo adaptado a nuestras ne- 
trear periódicamente y almacenar el resulta- cesidades. 
po 
10 REM Y TX XA EA XA XX XX Xxx Lora 
20 REM PROGRAMA DE ADQUISICION DE SEÑALES Am 
O REMA XA AAA AA A A Ax >= 
40 REM UTILIZA LA TARJETA DE FILTROS DE VOZ Ea 
530 REM EN EL IBM PC Az 
GO REN AA XX AA XA A AX AAA 
70 DEFINT A-Z “E 


380 DIM B(320): REM VECTOR DE MUESTRAS 

790 REM DESCRIPCION DEL PUERTO DE ENTRADA: 

91 REM BITS 0-7= SALIDAS DE LOS FILTROS e, 
92 REM DESCRIPEION DE PUERTO DE CONTROL: 

93 REM BIT O = BORRADO DE CONTADOR 


REM DESCRIPCION DE PUERTO DE ESTADO: 


93 REM BIT O = TOMAR MUESTRA 


96 

100 
110 
120 
130 
140 
150 
160 
170 
200 
210 
280 
230 
240 
250 
260 
270 
290 
290 
300 
310 
320 
3530 
340 
350 
360 
370 
390 
3790 
400 


REM BITS 1-7 = CUENTA DE PASOS POR CERO 


REM DEFINICION DE PUERTOS 

PDATOS=2:H201: REM DATOS DE LOS FILTROS 
PCONTROL=%H203: REM EYTE DE CONTROL 
PCUENTA=S2:203:. REM BYTE DE- ESTADO Y CUENTA 
REM MASCARAS PARA PRESENTACION 


M(0)=1: M(1)=2: M(2)=4: M(3)=8 

M(49)=16: M(S)=322 M(6)=64: M(7)=128 

ES(O)=" 0 FSD="g" 

KEY -DFF 

cus 

PRINT " PROGRAMA DE CAPTACION DE SERALES" 
PRINT 

FRINT " VERIFIQUE LAS CONEXIONES DE ENTRADA" 
PRINT 

FPRINT " SELECCIONE OPCION: ” 

PRINT > 
PRINT ” 1.-CAPTOR SEÑAL" 

PRINT 

FRINT " 2.-PRESENTAR RESULTADO MUMERICAMENTE" 
PRINT 

PRINT " 3.-PRESENTACION GRAFICA" 

FPRINT 

PRINT O" 4.—TERMINAR 

PRINT 

INPUT “OPCION=">0OPCION 


IF OPCION<1 OR OFCION>4 THEN BEEP: GOTO 210 
ON OPCION GOSUB 1000,2000,3000.,4000 

IF OPCION=3 THEN END 

GOTO 210 


FO REMO Xx xx CAPTAR SEÑALES XX kk 

1000 CLS 

1100 INPUT "PULSE ENTER CUANDO ESTE PREPARADO”: X+$ 
11940 PRINT 


1150 PRINT "CAPTANDO SEÑALES” 


1150 
1170 
1200 


AS INPIPDATOS) - - 
IF A=0 THEN 1160 
FOR I=1 TO 320 


1210 BC 1)=IMP(PDATOS) 


1220 


NEXT 1 


1230 RETURN 
1970 REM kx « xx PRESENTAR RESULTADO Xx *k %* k 


2000 


ELS 


2010 PRINT "LISTADO DE LA SEÑAL CAPTADA” 

2020 PRIMT 

2030 FOR l=1 10 320 

2040 PRINT O" "3HEXS(B(1D)): 

2030 NEXT 1 

2060 RETURN 

2970 REM xxx PRESENTAR GRAFICAMENTE * * % 
2775 REM * * * SOBRE FORMATO ALFANUMERICO *x k k 


3000 ELS 

5010 PRINT "GRAFICA DE LA SEÑAL CAPTADA” 
300 PRINI 

3030 FOR K=0 TO 3 A 

3040 FOR J=0 TO 7 

3050 FOR 1=1 10 30 

3060 PRINT F$(E(1+80XkK) AND MJ): 


35070 


MEXP 1 
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EL TALLER DEL HARDWARE MIN 


MEXÍ y 

PRINI 
MEXT Ok 
RETURN 
REM TERMINA 
UT FLCONIROL.O 
RETURN 


3090 
3070 
3100 
3200 
4000 
BOLO 
3100 


La parte del programa dedicada a la vi- 
sualización es también sencilla, necesitando 
simplemente la presentación de cada bit de 
forma gráfica en unas coordenadas X-Y, en la 
que la X representa el tiempo y la Y el rango 
de frecuencias del filtro correspondiente. Si la 
señal superó el umbral, aparecerá iluminada 
la casilla; si, por el contrario, estaba en 0, apa- 
recerá el color de fondo. 

El programa podría además contemplar 
el almacenamiento en un fichero de la secuen- 
cia de muestras correspondientes a una pala- 
bra dada, la presentación gráfica de una se- 
cuencia almacenada y la comparación de una 
secuencia almacenada con una nueva secuen- 
cia. Aquí es donde realmente pueden presen- 
tarse problemas de programación. Es casi se- 
guro que aunque se pronuncie exactamente 
igual una palabra dos veces seguidas no se 
obtendrán las mismas muestras de las señales. 
Es necesario, por tanto, realizar una compara- 
ción con todas las secuencias almacenadas y 
asignar a la más parecida la correspondiente 
palabra. El problema es aún mayor para la 
misma palabra pronunciada pasado un cierto 
tiempo, aunque sea la misma persona y el mis- 
mo lugar. Una comparación visual podrá ayu- 
darnos en un principio, pero para poder ha- 
cer algo práctico deberemos utilizar algún al- 
goritmo que determine la “distancia” lógica en- 
tre las secuencias de dos palabras. 

Para que solamente se almacene infor- 
mación válida por cada palabra, el programa 
de adquisición deberá explorar hasta que 
haya alguna muestra con alguna frecuencia 
por encima del umbral y luego tomará un nú- 
mero fijo de muestras. Antes de almacenar la 
palabra se eliminarán las muestras del final 
que contengan solamente 0. El tiempo entre 
muestras puede controlarse mediante un bu- 
cle de programa o mediante la observación de 
la señal externa. En la versión con intérprete 
de BASIC el tiempo entre muestras es bastan- 
te grande, para que no sea necesario aumen- 
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tarlo por programa. Para una aplicación real 
sería conveniente utilizar un programa compi- 
lado o en código de máquina. 


El Conclusión 


Se ha mostrado un circuito simple que 
permite presentar de manera gráfica el es- 
pectro de una señal de baja frecuencia y su 
evolución en el tiempo. Utilizado con entrada 
de voz puede servir para dar comandos al or- 
denador si incluimos dentro de la aplicación la 
comparación de las secuencias de muestras 
con las órdenes de control del programa. 

El circuito, aunque no es muy sofistica- 
do, permite iniciarse en el área muy intere- 
sante de proceso digital de señales mediante 
ordenador personal y que trataremos con ma- 
yor profundidad en futuros tomos. El empleo 
de nuestro ordenador personal hace más có- 
modo, eficiente y utilizable en diversidad de 
aplicaciones, el experimentar con proceso de 
señales. 

Con el circuito indicado estamos toda- 
vía lejos de poder realizar el reconocimiento 
de voz en términos prácticos, pero lo que sí 
podemos es adquirir experiencia sobre el pro- 
blema de análisis espectral de señales de baja 
frecuencia y una cierta familiarización con el 
tratamiento de señales mediante ordenador. 

En un próximo número veremos las po- 
sibilidades de análisis de sistemas mediante 
su respuesta en frecuencia y posteriormente 
el empleo de circuitos integrados que permi- 
ten realmente hacer el reconocimiento de la 
voz, todo ello a través de tarjetas que pode- 
mos añadir a nuestro ordenador personal a 
través de puertos de entrada salida, pues el 
proceso que necesita hacerse en tiempo real 
se realiza en la tarjeta y todo lo demás en el 
ordenador. 


APRENDER CON EL ORDENADOR II 


NATURALEZA 
Y TECNOLOGIA 


ll Biología: el corazón 


L corazón es un órgano muscu- 
loso hueco, situado en la 
cavidad torácica entre los 
dos pulmones y cuyo peso 
en el hombre adulto oscila 
alrededor de los 350 g. 
Interiormente consta 
de dos partes totalmente in- 
comunicadas entre sí. Cada una de ellas se di- 
vide a su vez en dos cámaras: aurícula y ven- 
trículo. 

La comunición de cada aurícula con su 
correspondiente ventrículo se realiza a través 
de válvulas membranosas que permiten el 
paso de la sangre de la aurícula al ventrículo, 
pero no a la inversa. 

El corazón está formado por el miocar- 
dio, masa contráctil y muscular, y recubierto 
por dos membranas; una externa, pericardio, 
y una interna, miocardio. 

Las fibras musculares que constituyen 
el miocardio tienen la propiedad de contraer- 
se rítmicamente, originando así el latido car- 
díaco. Los dos movimientos rítmicos que rea- 
liza el corazón se denominan sístole (contrac- 
ción) y diástole (dilatación). 

Exteriormente la contracción cardíaca 
se manifiesta mediante los latidos y ruidos car- 
díacos, que pueden percibirse con el estetos- 
copio. 

Las arterias, pulmonar y aorta, son los 
vasos que conducen la sangre desde el cora- 
zón a todos los órganos. Las venas, por el con- 
trario, son vasos que ingresan sangre en el co- 
razón, pudiendo ser de dos tipos: venas pul- 
monares y venas cavas. Estas últimas son la 
vena cava inferior y la vena cava superior. 
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1. Arteria aorta. 2. Arteria pulmonar. 
3. Venas pulmonares. 4. Aurícula izquierda. 
5. Ventrículo izquierdo. 6. Ventrículo derecho. 
7. Vena cava inferior. 8. Aurícula derecha. 
9. Vena cava superior. 

Fig. 1. 


El Sobre el programa 


En la primera parte del programa se re- 
presenta un dibujo como el de la figura 1, se- 
ñalando los aspectos más importantes de la 
morfología del corazón. Te servirá para rete- 
ner de un modo más fácil los conceptos ante- 
riormente expuestos. 

A continuación deberás responder a las 
preguntas que te irá formulando el ordenador 
sobre los puntos esenciales de la estructura y 
funcionamiento del corazón. 

No olvides contestar siempre en mi- 
núsculas. 


APRENDER CON EL ORDENADOR 


23 
19 


dd 
1%0 
110 


REN laica date 
* biologia * 
REM * el corazon * 
REM A MH IEA 


ndib=8 

REM rr MR MIRRA 
REM * puntos del dibujo +* 
ti de edi 
REM miocardio 


DATA 39, 107,330,73,342,50,337,35,317,30,270,38,251,56,212,82,186,103, 180,12 


% DATA 159,196,172,242,192,295,187,314 ES O 123,327 ,104,302 


159 DATA 193,282,91,280,91,295,103,324,77,335,59,328,49,317,48,277,48,277 

160 DATA 73,259,72,254,53,262,56,202,71,218,97,205,101,206,103,233,84,251,89,252 
17% DATA 193,240,104,275 

198% REM 

PE EEN auricula derecha 

312 DATA 17,121,210,143,215,157,236,145,244,150,250,159,247,170,273,178,297,177, 
229 DATA 162,324,137,324,126,318,115,301,116,250,137,256,117,240, 120,213 

249 REM vena cava 

250 


DATA 29, 98,337,97,349,109,363,112,363,1%4,373,119,380,125,370,136,373,130,3 


DATA 146,386,146,374,148,374,153,380,156,380,156,373,158,3734 166,379 
DATA 170,376,164,370,172,365,163,354,137,357,140,348,157,348,154,341 
DATA 134,339,123,328,101,296,95,296 E 


mr arteria aorta 

Li 4, 31,290,25,287,18,296,29,303 

REM vena pulmonar 

DATA 4,534,337, 51,346,63,353,70,342 

REM cava inferior 

para 4, 97,342,194 ,329, 122,353,134,353 
REM ventrículo derecho 

DATA 4,169,330,184,339,198,324, 182,319 
REM auricula izquierda 

Bao 7,191,306,208,306,2140,303,196,301,195,2794,203,293,2%63,291 


O 
REM * representacion grafica * 
O 


REM 
FOR iz=1 TO ndib 


REM HA IM MR RIA NARA 


REM * colocar explicacion +* 
FE 0 6H MH IIA RAR 


REM 

LOCATE S,17:PRINT "Corazon" 
LOCATE 5,18:PRINT " ds 
PRINT 

FOR i=1 TO 6 

READ_es$ 

LOCATE 1,i+19: PRINT STR$(i);".";e$ 
NEXT i 

DATA Auricula derecha 

DATA Ventriculo derecho 
DATA Auricula izquierda 
DATA Ventricuio izquierdo 
DATA Arteria pulmonar 

Hi Arteria aorta 


REM ARHAAAAAIA 
REM * rectas * 
EEN HARIAN AAA 


M 
PLOT 135,220:DRAW 234,220 


250 

868 PLOT 145,270:DRAW 240,270 
87% PLOT 25,220: DRAW 88,220 
884 PLOT 24,320: DRAW 75,29% 
890 REM 

O 
91% REM * situar numeros * 
92D REM AAA HHAR RARA 
938 REM 

949 LOCATE 16,79:PRINT_3 

93% LOCATE 15,12:PRINT 4 
9566 LOCATE 1,12: PRINT 2 

94 LOCATE 1,4: PRINT 

988 LOCATE 12,1: PRINT_ 6 

99% LOCATE 7,1:PRINT 5 

10008 FOR gh=1 TO 3500: NEXT gh 
141% CLS 

1920 PRINT 

1030 PRINT 

1040 PRINT 

105% PRINT 

146% PRINT 

1DTWD REM RA 


108% REM * datos test * 
1098 REM AMI AA 
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mM 
DATA "La arteria","” 


DATA "el ventriculo izquier 
"Los movimientos "," d 
DATA "sistole y diastole" 


00D IAS 
SATA AA 
a 
D 
pa 
D 


DATA "Las dos","” auriculas 
DATA "comunican entre si" 
“no se comunican" 
DATA "no existen",2 


ATA "Los vasos que”,' 


PODA RO RO PD pp pu ua Jr pul ja pu pp 


OACI 


A "el estetoscopio",3 


REM AAMAARAAR NA NARRAR RA 
EM * realizar preguntas * 
A 


2 pd uc Jj oa pd o pl fr Jm JA od Pu pd Jl o Jl pr Jo Jl JJ a po o ju Jo 
SURAUdN-==>0 


OO ICIIN DO 
SESVSALALASANANAR 
VIDNIDADIDODDO 
AS3D3 
ZIHA 
DDD 


R_ csi TOD 3 
140% READ r$(c) 
ERINT " Mn 


Pl T 
til "“Respuesta";zw 


NT 
EA RAR AR RAMA 
REM * comprobar respuesta * 
NO do 
RE 


REM AAA AAA HAR 
REM-=* temporizador * 
REM PON 
EÉS ww=1 TO 3520: NEXT ww 
NEXT + 


Jj a uf a uf Jl Jo Já pa Jl o Jl pl e e pl pd o po pu 
COPSCSOCAEMACANUOSDA Dos poo 
Uy S-00-J0 115408 000-112 40d 
AAA ADAN RARA 


Modificaciones para otros equipos 
SPECTRUM: 


570 read x1,y1: let x1=x1*0.425 
575 let y1=y1*0.44:plot x1,y1 
590 read x2,y2: let x2=x2'0.425 
595 let y2=y2*0.44 :draw x2-x1,y2-y1 
600 let x1=x2: let yl=y2 

670 print at 17,5; "Corazon" 
680 print at 18,5;" » 

720 print at i+19,1;str$(i);".ve$ 
850 plot 57,97: draw 40,0 

860 plot 62,119:draw 40.0 

870 plot 10,97:draw 23,0 


880 plot 8,140:draw 23,-13 
940 print at 9,16;3 

950 print at 12,15;4 

960 print at 12,1;2 

970 print at 4,1;1 

980 print at 1,12;6 

990 print at 1,7;5 


COMMODORE: 


50 print chr$(147) 

570 read x1,y1: x1=x1*'0.425: y1=y1*0.48 
590 read x2,y2 : x2=x2"0,425: yl1=y10.48 
600 line (x1,y1)-(x2,y2):x1=x2: yl=y2 


"auricula: y ventriculo” 
DATA "simpatico y peo MEG HEGEL ml 
E Ñ 


DATA "La membrana externa"," 
ATA "pericardio",' "miocardio", "endocardio",1 
pS " ingresan la sangre son" + 
rlas venas cavas","la cava superior","la arteria aorta”,1 
Los ruidos cardiacos"," on” 
"el fonendoscopio",'el microscopio" 


i aorta nace en” 
DATA "el ventriculo derecho" 
DATA "la auricula izquierda" 


3 
y 
el corazon son" 


del corazon es” 


se perciben e 
ia" 


IF res=w THEN PRINT"Correcto":G0TO 161% 


PFRINT"Error,la correcta es"zres 


850 line(57,105)-(98,105) 
860 line (62,129)-(102,125) 
870 line (10,105)-(34,105) 
880 line (8,154)-(32,140) 
1010 print chr$(147) 
1620 print chr$(147) 
Para la simulación de las sentencias lo- 
cate consulta el tomo 1 de esta colección, 
IBM: 


55 screen 2 

570 read xl,yl 

590 read x2,y2: line (x1,y1)-(x2,y2) 
600 x1=x2:y1=y2 

670 locate 17,5 

680 locate 18,5 

720 locate i+19,1 

850 line (135,220)-(230,220) 
860 line (145,270)-(240,270) 
870 line (25,220)-(80,220) 
880 line (20,320)-(75,290) 
940 locate 9,16 

950 locate 12,15 

960 locate 12,1 

970 locate 4,1 

980 locate 1,12 

990 locate 1,7 


APRENDER CON EL ORDENADOR NN 


En todas las sentencias LOCATE invier- 
te el orden de los argumentos como se indica: 


MSX: 


55 screen 1 

570 read x1,y1: x1=x1'0.425 :y1=y1*0.48 
590 read x2,y2 : x2=X2"0.425 :y2=y2'0.48 
600 line (x1,y1)-(x2,y2):x1=x2 :y1=y2 
850 line(57,105)-(98,105) 

860 line (62,129)-(102,129) 

870 line (10,105)-(34,105) 

880 line (8,154)-(32,140) 


MATEMATICAS 


Ml Resolución de triángulos 
rectángulos 


Sea ABC un triángulo rectángulo y A su 
ángulo recto. Llamaremos elementos del trián- 
gulo ABC a los lados a, b, c y a sus ángulos 
opuestos A, B y C. 


Cc 


> c A 


Fig. 2. Elementos de un triángulo rectángulo. 


Diremos que los ángulos B y C son de- 
pendientes, porque satisfacen la siguiente 
igualdad: B+ C = 90 

También los lados diremos que son de- 
pendientes, pues por el teorema de Pitágoras: 
a? = b? + c? 

Es posible obtener otras relaciones en- 
tre los elementos de un triángulo rectángulo a 
partir de las definiciones de las razones trigo- 
nométricas. hr 


Fig. 3. 


De la figura 3 se deducen, por ejemplo, 
las expresiones: 


sen C=c/a=>c=a sen C 
cosC=b/a—>b=acosC 


Resolver un triángulo rectángulo signi- 
fica calcular todos sus elementos conociendo 
solamente dos de ellos. 

De los seis elementos de un triángulo 
uno de ellos, A (el ángulo recto) siempre es co- 
nocido y los demás se pueden calcular em- 
pleando las relaciones de dependencia. 

Según cuales sean los datos, se pueden 
distinguir los cinco casos siguientes: 


1. Conocido un ángulo y la hipotenusa: 


Fig. 4. 
2. Conocido un ángulo y un cateto: 


Fig. 5. 
3. Conocido un ángulo y el cateto 


opuesto: 
ls | e 
€ . 


Fig. 6. 
4, Conocida la hipotenusa y un cateto: 


Fig. 7. 
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5. Conocidos los dos catetos: datos y te presentará 


Fig. 8. 


El programa 


El programa te ofrece la posibilidad de 


a radianes. 
Un ejemplo de 


en la pantalla tu triángu- 
lo y los valores de todos sus elementos. 

Introduce el valor de los ángulos en 

grados. Si prefieres operar en radianes, sólo 

c tienes que modificar las líneas 370, 520 y 670, 

en las que se realiza la conversión de grados 


resolución en la pantalla 


sería el de la figura 9. 


Datos 


a=32 
b=16 


resolver rápidamente cualquier triángulo rec- 
tángulo. Solamente tienes que introducir los 


PREM IRON 
REM * resolucion de * 
REM * triangulos SL * 
REM Hed E MIRRA 
LS 


REM AMARA RARA RAR 


10% REM * casos posibles * 


REM AAA AAA 


R 
FRINT"Resolucion de triangulos rectangulos” 
(5) Qui "conocidos solo dos datos” 


PRINT TAB(5)"1.un angulo y la hipotenusa" 
PRINT TAB(5)"3.Un angulo y el cateto opuesto" 


PRINT TAB(5)"4.La hipotenusa y un cateto" 
PRINT TAB(5)"S.Los dos catetos" 


13 

149 

150 

160 

q PRINT TAB(5)"2.un angulo y un cateto" 
198 

20% 


219 PRINT 

220 INFUT "Selecciona una opcion"3s 
230 1F s>5 OR s<1 THEN GOTO 22% 
240 CLS:GOSUB 110% 

250 PRINT 

260 PRINT 

27 PRINT 

28% PRINT"Datos";¡TAB(8)"Incognitas" 
29% PRINT 

JW REM ARA IA 


310 REM * primer caso * 


REM e RA 


330 REM 


JF s>1 THEN GOTO 49% 
INFUT "C=";c1 

INPUT "a="za 

LET c2=c1*P1/180 

LET b1=9%-c1 

LET b=a*COS(c2) 

LET csaxSIN(c2) 


LOCATE 8,7: PRINT "b="ib 


4306 LOCATE 8,8:PRINT "c="ic 
O 103% 


ASW REM rr RR 


REM * segundo caso * 


ATD REM AH ERA ARRA RA 


REM 


49% 1F s>2 THEN GOTO 654% 


INPUT "C="3c1 
INPUT"b="3b 

LET c2=c1%F1/180 
LET b1=99-c1 

LET a=b/COS(c2) 


LOCATE 8,6:PRINT "B=";b1 

LOCATE 8,7:PRINT "a="ja 

LOCATE 8,8:PRINT"c="3cC 
103% 


REM RR RAR E 
REM * tercer caso * 
REM ARAN 
REM 

IF s>3 THEN GOTO 79% 
INPUT"C=";c1 
INPUT"c="3c 

LET c2=c1*PF1/19w 

LET bi=9%-=c2 


ET ) ? 
LOCATE 8,6:PRINT “B=";b1 
LOCATE 8,7: PRINT"a="3a 
LOCATE 8,8:PRINT"b="5b 
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APRENDER CON EL ORDENADOR INN 


7408 GOTO 1830 

TOO REM HAIR 
76% REM * cuarto caso * 
20% REM II IIA 


REM : 
¿79D 1F s>4 THEN GOTO 949 
800 RN AE 


NPUT"b=" 
820 IF a<b THÉN PRINT"Datos erroneos”":G0TO 890 
830 LET c=SOR(atka-bxb) 
84% LET ci=ATN(c/b)x*180/PI 
859 LET b1=90-c1 
86% LOCATE 8,6: PRINT"B="3b1 
876 LOCATE EM T:PRINT"C=" oe 
884 LOCATE 848: ¿PRINT"c=" 


2UB REM ES SU 
9108 REM * quinto caso * 
Q2D REM IARAARR RRA 


o REM 
94% INPUT ed 
9598 INPUT"c="; 
968 LET CASATÑ ic /p)x180/P1 
974 LET nn=bx*b+e 
de% LET a2S8R (nn) Ñ 
97% LET bi=2W-c1 
1000 LOCATE €, 6: PRINT" Ano 


2... 


pe 
a 
Land 
a 
de 
[m] 
O 
D 
— 
m 
sal 
0 
m7 
pu 
La 
nz 
A 
O 
EA 
oia 


561 
¿bi 
a 


2 
60 de de realizar otra operacion"3rs$ 
TD IF rs$<>" THEN END 

8% CLS: GOTO “on 

a] E AAA RRA NARA 

0% REM * subrutina de dibujo * 

1D REM IR RR 

20 REM 

30 ORIGIN 378 

49 DRAW_ 80,0: BRA 30, 120: DRAW 6,9 

50 LOCATE 24,8:PRIN NE, 

6% LOCATE 3%, 8: PRI 

7% LOCATE 26,13: PAINT (e 

80 LOCATE 1,1 


Modificaciones 
COMMODORE: 


50 print chr$(147) 

240 print chr$(147) 

1130 no se pone 

1135 line (158,105)-(192,105) 
1140 line (192,105)-(192,153) 
1145 line (192,153)-(158,105) 
1080 print chr$(147) 


La simulación de las sentencias loca- 
te la encontrarás en el tomo 1 de esta colec- 
ción. 

IBM: 


35 screen 2 

líneas 410, 560, 710, 860, 1000 locate 6,8 
líneas 420, 570, 720, 870, 1010 locate 7,8 
líneas 430,580,730,880,1020 locate 8,8 
1130 no se pone 

1135 line (370,220)-(450,220 ) 

1140 line (450,220)-(450,320) 

1145 line (450,320)-(370,220) 


1135 line (158,105)-(192,105) 
1140 line (192,105)-(192,153) 
1145 line (192,153)-(158,105) 


SPECTRUM: 


líneas 410, 560, 710, 860 print at 6,8; "B="¡b1 
420 print at 7,8;"b=";b 

430, 580, 880 print at 8,8;"c=";c 

570, 720 print at 7,8;"a="¡a 

730 print at 8,8;"b=";b 

870 print at 7,8;"C="¡c1 

1000 print at 6,8;"C=";c1 

1010 print at 7,8;“B=":b1 

1020 print at 8,8;"a=";a 

1070 goto 9999 

1130 no se pone 

1140 plot 35,97: draw 34,0: draw 0,53:draw 
-34, -53 

1150 print at 8,24;"a" 

1160 print at 8,30;"b* 

1170 print at 13,26;*c* 

1180 print at 1,1;" 


1150 locate 8,24 

1160 locate 8,30 SOCIEDAD 

1170 locate 13,26 

MSX: Mi Las declinaciones latinas 

35 screen 1 Una diferencia fundamental del latín 
1130 no se pone respecto del español es la existencia de decli- 
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nación en los sustantivos, adjetivos y pronom- 
bres. 

La función gramatical que desempeñan 
las palabras en la oración sólo es reconocible 
en español por su colocación dentro de la fra- 
se, por el sentido o por el empleo de las prepo- 
siciones. 


En latín, el orden de las palabras en la 
frase no tiene en sí valor gramatical; éste va in- 
dicado por la terminación de la palabra. 


A las diferentes formas que presenta 
una misma palabra en sus terminaciones las 
llamamos casos. En latín son seis: nominativo, 
vocativo, acusativo, genitivo, dativo y ablativo. 


El nominativo desempeña el oficio de 
sujeto y el de predicado nominal. 


El acusativo es el caso del complemen- 
to directo de la oración transitiva. A diferen- 
cia del español, no lleva nunca preposición, 


Un sustantivo puede ir complementado 
por otro en caso genitivo. Este debe traducir- 
se al español anteponiéndole la preposición 
de. Por eso, al genitivo se le llama complemen- 
to del nombre o complemento nominal. 


El dativo realiza la función de comple- 
mento indirecto del verbo, indica la persona a 
quien se atribuye la acción verbal, 


El ablativo expresa las diversas cir- 
cunstancias que acompañan a la acción ver- 
bal, pudiendo ir acompañado de preposición. 


Declinar es expresar los diferentes ca- 
sos de una misma palabra. El número de de- 
clinaciones es cinco. Es decir, todas las pala- 
bras latinas declinables siguen uno de estos 
cinco tipos de declinaciones. 


En la primera declinación agrupamos 
las palabras (sustantivos y adjetivos) que ter- 
minan en el nominativo de singular en “a” y en 
el genitivo del mismo número en "ae”. 


Ejemplos: rosa (rosa). 

regina (reina) 

La segunda declinación comprende los 
nombres que acaban el nominativo de singu- 
lar en “us”, “er” y “um” y el genitivo en “1”. 

Ejemplos: puer (niño): 

telum (dardo) 


La tercera declinación agrupa los sus- 
tantivos y adjetivos que terminan el genitivo 
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de singular en "is"; el nominativo no presenta 
terminación única. 


Ejemplos: amor (amor): 
labor (trabajo) 


Los sustantivos que terminan el geniti- 
vo de singular en “us” pertenecen a la cuarta 
declinación. El nominativo acaba en "us" o "vu", 


Ejemplos: genu (rodilla): 
portus (puerto) 


Los sustantivos incluidos en la quinta 
declinación terminan el nominativo en “es” y-el 
genitivo en “ei”, 


Ejemplos: res (objeto, asunto): 
dies (día) 


El Sobre el programa 


El programa permite la declinación de 
una palabra perteneciente a cualquiera de las 
cinco declinaciones. 


Debes indicar a qué declinación perte- 
nece esa palabra, seleccionando una de las 
opciones que se te ofrecen por su número. 


Cuando introduzcas el nominativo de la 
palabra que deseas declinar, hazlo siempre en 
minúsculas. 


Dada la diversidad de nombres perte- 
necientes a la tercera declinación, con el fin 
de no alargar excesivamente el programa sólo 
se consideran como pertenecientes a la terce- 
ra declinación aquéllos cuyo tema termina en 
consonante líquida (1 o r). 


Un ejemplo del funcionamiento del pro- 
grama, con el sustantivo latino rosa (la rosa), 
sería el siguiente: 


Primera declinación 


nominativo 
vocativo 


rosae 
rosae 
rosas 
rosarum 
rosis 
rosis 


acusativo 

genitivo 
dativo 

ablativo 


APRENDER CON EL ORDENADOR “Sc 


10 REM AAHHIEHERARAA HEEE RRA 
2% REM * declinaciones latinas * 
3D REM RA IR RA 


60 REM casos 
8% FOR i=1 TO 6 


9% READ _a$(i) 
10 NEXT 1 


118 REM RR RRA AAA A 

12% REM * terminaciones de los casos * 

130 REM Hom IR MIR MA ARANA 

14% REM 

154 DATA "nominativo'",'"vocativo" "acusativo" 

16% DATA "genitivo", divon ,"ablativ vo" 

170 KEM 

mE REM primera 

2004 DATA"a","ae","a","ae","am"”,"as","ae","arum","ae","is","a","is" 

210 REM é ; 

22% REM segunda 

230 REM 

240 DATA "us", "i"," in tum”, tos" vi "orum", "o" ga lis 

25% DATA “"yul" "gen qui? Morun”, "o pis", "o migo 

2508 DATA "un"," untar di Mordm", tor, nds, dan, is" 

270 REM 

284 REM tercera 

308 DATA LD 0D 
Mn Meg", 0 es, Meg" "es", "is", "um", "i","ibus", "e", "ibus" 

310 REM ? UA la 

32% REM cuarta 

330 REM 


34% DATA "us", nus” us! tus", "un", us” 
350 DATA Ml “uun*,"ui”,"ibus","u", "ibus"” 


390 DAA tur, tua”, aa, ua")"us", "uan", "ui", "ibus","u", "ibus" 
38% REM creia 
390 REM 


an DATA tes", 1 , nes”, a » "en", as” y "ei “ 
41% RENA "erun”, "el! , "edus" ta" ,"ebus" 


A 
440 REM * programa principal * 
AS REM RRA AA 


REM 
470 FRINT " Declinaciones!' 
AGO TPRIND PP 4 SS 


509 PRINT " 1,Primera” 
520 PRINT " 2.Segunda" 
540 PRINT " 3.Tercera" 
56% PRINT " 4 Cuarta" 
584 PRINT " S.Quinta" $ 


RINT 
60% INPUT"Selecciona uma opcion";n 
610 DEN OR n>5 THEN GOTO ¿669 


63% INPUT "palabra latina";1$ 
646 LET 1=LEN(1$) 


CLS 
66% Pe A THEN GOTO 934 
68% REM MESSI 


69% REM * primera declinacion * 
TOD En do 
EM 


21% 
720 FRINT "primera declinacion' 
230: PRINT == 
7140 PRINT 
750 FRINT TAB(13)3 "singular"; TAB(24); "plural" 
160 PRINT TAB(13)3"======-- OB (245 1=-=25= 
. 17% PRINT 
7808 0% PE E ES 1) 
EN TOD 6 
800 ERINT E 
81% READ 
829 PRINTO CTAB(13)5y8+955 
8:34 RE 
8440 PRINTO TAB(24) ;y$+p$ 
854 SUI E 
89% 06to Íeso 
89% REM 


890 REM Hex RR INR RARA 
9%%b REM * segunda declinacion * 
1D REM AIR RR RR RRR RRA 
920 REM 
930 1F nm>2 THEN GOTO 2 
949 LET b$=MID$(1$,1- 1,2) 
IF b$="us"THEN s=12:LET PA 1-2) 
r% THEN LET s=24:LET y$=1$ 
970 1F b$="um" THEN LET s=36: LET y$=LEFT+$(1$,1-2) 
98% PRINT"segunda declimacion” 
A 


2 PRINT 

1010 PRINT TAB(13); "singular "¡TAB(2 
102% PRINT TAB(13) :"---=-=-- TAB(2 
1630 FOR k=1 10 31 READ Se nexh e 


3 plural” 
, 


2 READ s$ 
1074 PRINT TAB(13);y$+s$; 
READ s$ 
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PRINT TAB(24)3y$+s$ 

PRINT 

NEXT k 

GOTO 186% 

REM 

REM AI IRA MARA 
REM * tercera declinacion * 
2EN RN NR NNN ION IAN RHN 
RE 

EE n>3 THEN GOTO 140% 


RINT ¡tercera declinacion" 
PRÍN ml A 


FRIN 
PRINT TAB eL) 0 s Angular: TAB(24 
PRINT. TAB(13) 3 "== 3TAB(24 
LET y$=1$ 

FOR k=1 TO 48:READ t$:NEXT k 
FOR i=1 TO 6 

PRINT a$(1); 


READ t 
PRINT TAB(13);yS+t$; 
READ_t$ 
ES TAB(24);y$+t$ 


NE i 
GOTO 1868 
REM 


A 
TY REM * cuarta declinacion * $ 
80 ma DAA 


200-003 000 =J 0 01 01009 0 


PUN 
A 


9% REM 
au ie Pd THEN GOTO 1679 » 
19 "cuarta declinacion! 
20 PAINT AA ASS TZ 
PRINT 
46 PRINT TAB(13)3 "singular"; 
5% PRINT TAB(24)3 "plural" 
CES) A 
2403" 
TUS 
HE 


20 FOR =1 TO S:READ c$: NEXT k 


IS A O SE Rol 


1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
Mi 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
i 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 


30 FOR i=1 TO 6 
549 PRINT ati); 
35% READ 
1560 PRINT CTAB(13) 5 yenes; 
157% READ 
1590 ERINT> TaB(24);ys+cs 
1590 PRINT. 
1500 


1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 


19 SOTO 1860 
REM 


READ qs$ 
PRINT TAB (13); y4+0%; 
PRINTITAB(24);ys+qs 
PRINT 


6 

62% 

LID REM RR RR RRA A 
640 REM * quinta declimacion + 
65% REN HR NHRN NR RR NR 
660 

679 PRÍNT “quinta declinacion" 
68) PRINT 
679% PRINT 

TGD FRINT TAB(13)3 "singular"; 
11% PRINT TAB(24)3"plural” 

720 PRINT TAB(13) 3“ ———=-- " 
T3IVD PRINT TAB(240):3"------ xR 

740 LET yesLERTE ds 2) 

750 FOR k=1 TO 84:READ q$:NEXT k 
7160 FOR i=1 TO £ 

TWD PRINT nn 

7890 

TID 

800 

319 

82% 

834 

8 


IS 
= 


NEXT_i 

PRINT:PRINT 

REM 

BGM REM re RAR 
879 REM * repetir proceso * 
BBD REM em IR RR 
89% REM 

20% FRINT "Quieres declinar otro sustantivo" 
91% RESTORE 

92% Ad rs 

930 r$="s" THEN GOTO 28 

949 607ú 194% 


950 let y$=1$(1 to 1-2) 


El programa es válido para Amstrau, do pe ar ed 


IBM y MSX. Si tu ordenador es un Spectrum: E? E 
o un Commodore, debes hacer los siguien- ee ne ar 5 de 
tes cambios: 


Modificaciones para otros equipos 


1740 let y$=1$(1 to 1-2) 
SECTAS COMMODORE: 
5 dim a$(6,10) -40 print chr$(147) 
780 let y$=1$(1 to 1-1) 620 print chr$(147) 


940 let b$=I$(1-1 to 1) 650 print chr$(147) 


43 


APRENDER CON EL ORDENADOR 
PARA LOS MAS JOVENES 


mm Adivinar dos números 


Aquí tienes la oportunidad de demos- 
trar que eres capaz de adivinar los dos núme- 
ros que el ordenador ha pensado para ti. 


El ordenador te dará tres pistas para 
que intentes descubrir los números: su suma, 
su diferencia y los valores entre los que se en- 
cuentran. 


Con estos datos debes ser capaz de 
descubrir los números que ha pensado tu or- 
denador. Indica tu respuesta separando am- 


REM * adivinar los numeros 
REM * pensados 


PRINT 
PRINT 


REM 


“entre 1 y 


90 


2 
pul 
mm 
A 
3 


REM 

LET mií=INT (RND*10)+1 
LET n2=INT(RND*1W)+1 
PENETe THEN GOTO 84 


t 
REM RR IRM HI RR IRAN 
REM * escritura de mensajes + 
REM RR RR NAAA AR 


NS 90-00 PUN 
S9S9NaASNSANOANS 


NIN tp a e od Ja joa rd 


FRINT 
PRINT 
PRINT 


PRINT 


PRINT "te has equivocado" 


REM RRA 
REM * solucion +* 
REM AAA RA RAA 
PRINT 
PRINT 
FRINT 
REM III RAR 


REM * retardador *£ 
ES] FRIINAN MARN 


EM 

FOR as 1 TO 2008 
NEXT 

GOTO Sg 


"la solucion es ni 


Modificaciones para otros equipos 


El programa es válido para Amstrad, 
IBM y Spectrum. Si tu ordenador es un Com- 
modore o MSX, deberás hacer las siguien- 


tes modificaciones: 


por el ordenador. 
E! HRS IN HIM FO III INR INMI 


REM ARIES EERRENATARA EEIPAOSIA E 


E 


RINT "estoy ANA dos numeros” 


HHH IR IN RMN RIIAR A AMMRIAA ARA 
REM * obtencion de los numeros * 
REM III MR E E 
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PEER 


bos números por una coma tal como se indica 
en el siguiente ejemplo: 


Ejemplo: 
Estoy pensando dos números 
entre 1 y 10, 


La suma de los numeros es 15. 
Su diferencia es 3. 
¿Cuáles son los números? 


Respuesta: 9,6. 


Si te equivocas en la respuesta el orde- 
nador te lo indicará y te enseñará los núme- 
ros que ha pensado. 


Del mismo modo, si contestas correcta- 
mente, te felicitará y te propondra jugar otra 
vez, 


PRINT "la suma de estos numeros es"¿n1+n2 
“la diferencia es"¿n1i-n2 

INPUT “cuales son esos numeros";c1, c2 

A 

REM * comprobacion de resultados * 

REM HI A RR NOR NR NNRRAN RA AMA 


REM 
1F (ci=n1 OR ci=n2) AND (c2=n1 OR c2=n2) THEN PRINT "Muy bien":GOTO 468 


="3n13" y n2="3n2 


COMMODORE: 


50 print chr$(147) 
140 let n1=int(rnd(1)10)+1 
150 let n2=int(rnd(1)10)+1 


140 let n1=int(rnd(1)'10)+1 
150 let n2=int(rnd(1)10)+1 
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LA MAQUINA ANALITICA 
(PRIMERA MAQUINA 
UNIVERSAL) 


N 1832, Babbage había lle- 
vado a cabo muchos proyec- 
tos de todo tipo. La máquina 
de diferencias le había ab- 
sorbido gran parte de su 
tiempo, pero no se sentía sa- 
tisfecho. La idea primitiva, 
de la que había partido para 
diseñarla era pobre, más aún, ramplona, y, por 
tanto, el futuro de la: máquina sería efímero, 
sin interés. Ñ 

A pesar de toda las subvenciones de or- 
ganismos relacionados con el Gobierno, Bab- 
bage empezó a olvidarse poco a poco de su 
«obra de juventud» interesándose por un pro- 
yecto verdaderamente revolucionario. La má- 
quina analítica. Esta máquina es mucho más 
ambiciosa que la anterior, es más, no tiene casi 
nada que ver con ella. La máquina analítica fue 
pensada como un computador universal, es 
decir, lo que hoy se llama «de uso general». 
(Es importante que aclaremos bien lo que sig- 
nifica «de uso general». Lo haremos, dando 
ejemplos del término contrario, «uso especial». 
En este epígrafe podemos incluir máquinas 
que realizan operaciones específicas, como, 
por ejemplo, los ordenadores que hoy en día 
controlan básculas, otros incorporados a co- 
ches, para controlar ciertas características es- 
peciales, etc.). 

La máquina de Babbage estaba pensa- 
da para resolver cualquier necesidad de cóm- 
puto, y además era totalmente automática. 

Veamos cómo concibió Babbage que 
debía ser su máquina analítica: 

En primer lugar, debía disponer, claro 
está, de una unidad aritmética, para realizar 
este tipo de operaciones. 

Además, debía disponer de una Unidad 
de Control, que se ocupara de que las opera- 
ciones se efectuaran en las secuencias correc- 
tas. Esta unidad supone la primera innovación 
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sobre las máquinas tradicionales, en las que 
esta labor era llevada a cabo por los operado- 
res. 

Un sistema para almacenar los núme- 
ros, tanto aquéllos que se van generando du- 
rante las operaciones, como los que constitu- 
yen el punto de partida del problema, es de- 
cir, los datos suministrados a la máquina. Esta 
innovación fue absolutamente revolucionaria. 

Una unidad de entrada de los datos 
(considerando como datos los números y las 
instrucciones que se dan a la máquina para 
que los procese). N 

Uná unidad de salida, que muestre los 
resultados de la forma adecuada. 

La memoria, naturalmente, era mecáni- 
ca, y estaba formada por engranajes con rue- 
das que podía permanecer en una de las diez 
posiciones posibles, almacenando de este 
modo un dígito. Esta memoria podía tener una 
capacidad de unos 1.000 datos, cantidad enor- 
me para la época. Los datos podían estar re- 
presentados cada uno por un máximo de cin- 
cuenta posiciones decimales. 

Babbage jamás llamó memoria a sus sis- 
tema de almacenamiento. Pensaba en él más 
bien como un granero, o despensa, que como 
un dispositivo en cierto modo semejante a la 
«memoria humana». 

El sistema de transmisión de los datos a. 
la memoria, también a través de engranajes y 
varillas, era verdaderamente complicado. 
Babbagge pensó en que la máquina pudiera 
tomar los datos de la memoria, y también en 
que fuera posible introducirlos a mano (aun- 
que esta posibilidad retrasaría enormemente 
el tiempo de ejecución, a pesar de la lentitud 
de los engranajes mecánicos). 

El sistema de control de la máquina era 
muy ingenioso. Utilizaba tarjetas perforadas y 
varillas. Cuando las varillas no encontraban 
una perforación en la ficha, no se movía, ele- 
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vándose las demás. Este sistema fue copiado 
del que utilizaba Jacquard para controlar los 
diseños de tejidos en su telar, y del que ha- 
blaremos con mucho más detalle, Digamos, sin 
embargo, que el sistema era bastante sencillo, 
y permitía una versatilidad enorme. Las fichas 
perforadas (naturalmente sin sus varillas aso- 
ciadas) se han utilizado hasta hace muy poco, 
en los Centros de Proceso de Datos. 

Las perforaciones se llevan a cabo se- 
gún un determinado código, y van dispuestas 
secuencialmente sobre una cinta, pasando a 
continuación sobre un tambor. 

Babbage pensó en utilizar dos tipos de 
fichas, de las que antes hemos hablado, y a las 
que llamó «Fichas de operación» y «Fichas de 
variables». El primer grupo de fichas (las de 
operación) tenían como objetivo controlar el 
funcionamiento de la Unidad Aritmética, espe- 
cificando además el tipo de operación que de- 
bía llevarse a cabo. El segundo grupo de fi- 
chas controlaban la transferencia de los datos 
desde la memoria a la unidad de cálculo, y vi- 
ceversa. (Hasta hace pocos años, se utilizaba 
un sistema de tarjetas perforadas muy seme- 
jante, uniendo las tarjetas de datos y de ins- 
trucciones en un mismo paquete, de tarjetas 
«de programas». 

Las tarjetas utilizadas en la máquina de 
Babbage eran muy semejantes a las que se 
han utilizado en Informática, pero algo mayo- 
res, y con unas perforaciones sensiblemente 
mayores también, aunque pequeñas (algo más 
de un centímetro) si consideramos los siste- 
mas mecánicos que las manipulaban. 

El sistema de introducción de los datos 
también permitía introducir tablas; como sabe- 
mos en la época (e incluso en nuestros días) 
muy útiles para multitud de estudios y traba- 
JOS, 

Las tablas tenía una aplicación inmedia- 
ta debido a que evitaban realizar innumera- 
bles cálculos, laboriosos. Sin embargo, Babba- 
ge supo intuir que en el futuro dejaran de uti- 
lizarse, o se utilizaran menos, ya que las ope- 
raciones de cálculo serían tan rápidas que es 
probable que fuera más sencillo calcular una 
cantidad (mediante su fórmula) que obtenerla 
de una tabla, comprobando su exactitud. (Res- 
pecto de este último punto, la máquina de Bab- 
bage disponía de unos timbres que sonaban 
cada vez que la máquina necesitaba algún 
dato, o cuando el dato introducido estaba equi- 
vocado.) 

El sistema de presentación de los datos 
permitía un tipo de impresión directa, median- 
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te moldes de los que se vaciaban bloques para 
la impresora. Este sistema también utilizaba 
tarjetas perforadas. 

simplificando un poco, digamos que el 
sistema de salida grababa los datos en una 
plancha de cobre, para poder imprimirlos con 
posteridad. 

La máquina de Babbage hubiera sido 
una revolución en su tiempo. Pero nunca llegó 
a terminarse. El proyecto era demasiado am- 
bicioso, y requería resolver innumerables pe- 
queños problemas técnicos, de resistencia de 
materiales, de rigidez, etc. Babbage trabajó en 
su máquina el resto de su vida, dedicándole 
todo su interés. También invirtió en ella todo 
su dinero, y el obtenido del Gobierno, Pero 
nunca llegó a ver su obra, lo que le amargó, y 
dio a sus últimos años una componente de odio 
hacia la humanidad que no lo había compren- 
dido ni ayudado. La realidad es que le era di- 
fícil explicar cómo se había gastado su vida y 
su fortuna sin poder mostrar el resultado de 
sus trabajos. Mas aún, todos ellos estaban in- 
acabados, produciendo al visitante, o al amigo 
una sensación de pesadumbre e incompren- 
sión. 

Los diseños de Babbage eran revolucio- 
narios, y los medios para llevarlos a cabo, 
complicados, debido a las técnicas utilizadas 
en la época. Sin embargo, Babbage no fue un 
visionario. Era un hombre práctico, el tiempo 
se ha encargado de darle la razón. Sus inven- 
tos y diseños fueron prácticos y útiles. Otras 
de las innovaciones estudiadas y logradas por 
Babbage que aplicó a su máquina fue un «sis- 
tema de arrastres anticipados». En este caso, 
el término «arrastre» se refiere a los dígitos ob- 
tenidos de las operaciones, que se van aña- 
diendo en la siguiente posición más significa- 
tiva. Estos arrastres se van produciendo «en 
cascada», creando problemas en el sistema de 
engranajes. Babbage consiguió que todos los 
arrastres fueran simultáneos, mediante un sis- 
tema llamado de «arrastre anticipado». Este 
sistema se basa en que siempre que el total 
de la suma de dos número excede de nueve, 
se produce un arrastre. Esto ocurre del mis- 
mo modo en decenas, decenas de millar, etc. 
Aunque el orden consecutivo se mantiene en 
la lógica del proceso, en la práctica se puede 
conseguir que estos arrastres se produzcan 
casi simultáneamente. Babbage utilizó este 
mismo razonamiento para dotar a sus máqui- 
nas de la capacidad de tomar decisiones lógi- 
cas, Así, pues, la máquina de Babbage no so- 
lamente efectuaba todo tipo de operaciones. 


¿Sabía usted que... 


¿Sabía usted que uno de los lenguajes con más 
futuro dentro de la Informática es, a su vez, uno de 
los más antiguos? 

En efecto, el lenguaje de programación LISP 
es uno de los que más se está desarrollando y más 
se extiende en la actualidad por haber sido conce- 
bido especificamente para el procesamiento de lis- 
tas (LISP = List Processing) y ser, por tanto, muy apto 
para la programación declarativa propia de las nue- 
vas áreas de Inteligencia Artificial. De hecho, hace 
un lustro era tal el desarrollo de diferentes dialectos 
de LISP (casi uno para cada máquina y cada empre- 
sa) que se tuvo que imponer un estándar (Common 
Lisp) para poder comunicar resultados de una insta- 
lación a otra. Sin embargo, LISP es uno de los len- 
guajes más antiguos (de entre los llamados lengua- 
jes de alto nivel): las primeras versiones datan de 
1960 (hace veintisiete años: ¡La prehistoria de los len- 
guajes de programación!) y una versión depurada 
casi como las actualmente utilizadas (en LISP puro, 
no dialectos) se publicó en 1962 por parte de John 
McCarthy (creador del LISP en los laboratorios del 
MIT, Massachussets Institute of Technology). 


También podía llevar a cabo ciertas decisio- 
nes lógicas. Fue la primera máquina «seria» 
que podía tomar este tipo de decisiones, ya 
que, aunque existían autómatas capaces de 
hacerlo, nunca se había considerado esta po- 
sibilidad para resolver problemas de cálculo. 
Así, cuando la máquina recibe una instrucción 
lógica, debe elegir el camino a seguir, depen- 
diendo del paso previo. Este tipo de operacio- 
nes condicionales suponen una enorme inno- 
vación, El sistema que pensó Babbage para re- 
solver el problema se basa también en el 
«arrastre anticipado», llamado también princi- 
pio de «complemento de nueves». Así, si tene- 
mos dos números, uno mayor que otro, y res- 
tamos el mayor del menor, considerando un 
número fijo de dígitos, tendremos lo siguiente: 

0000156 

- 0000237 : 


9999819 


El conjunto de nueves obtenidos es re- 
sultado de la «toma» de unos. Al aumentar el 
número de dígitos, el conjunto nueves se iría 
extendiendo a la izquierda. En una sustracción 
normal, el resultado sería -81. La cifra anterior 
(9999819) sería el «complemento de nueves» 
de -81, Es fácil ver que esta operación de sus- 
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tracción y es equivalente a añadir 9999819 al 
número descartar el 1 del arrastre final. (El 
lector puede comprobarlo.) Babbage lo utilizó 
para que los arrastres fueran «simultáneos» y 
también en la toma de decisiones, ya que al 
obtenerse respuestas negativas, se produci- 
rían conjuntos de nueves a la izquierda hasta 


S 
e 
e08 
SS 


llenar las posiciones e incluso más. Babbage 
dispuso otra posición especial, que activaría 
determinados engranajes que a su vez actua- 
rían una parte de la calculadora..., que a su 
vez tomaría determinado conjunto de tarjetas 
perforadas. La posibilidad de que la máquina 
cambiara la secuencia de operaciones como 
consecuencia de alguno de los resultados pre- 
vios, era una característica nueva y poderosí- 
sima. Colocando un registro especial, donde 
se indicara el número de veces que se debía 
realizar una determinada operación, la máqui- 
na iría sustrayendo unidades de ese registro 
cada vez que realizara la operación. El punto 
de corte sería cuando la máquina provocara 
un número negativo en el registro, y el «con- 
junto de nueves complementarios» se utiliza- 
rían para detener la operación y pasar a otra, 
etcétera. 

Babbage escribió bastante sobre sus 
proyectos. Sin embargo, no se explicaba con 
demasiada claridad, y sus escritos no tienen 
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demasiado interés. Muchos otros hombres in- 
quietos de la época (de varias nacionalidades) 
se interesaron por sus trabajos, y publicaron 
escritos y ensayos, a veces mucho más intere- 
santes que los del propio Babbage. Entre este 
grupo de personas, debemos mencionar a 
Lady Lovelace, considerada la primera pro- 
gramadora, y amiga personal de Babbage, y 
a otro ingeniero joven italiano, Menabrea, que 
dio un ciclo de conferencias publicando infor- 
mes sobre la obra de Babbage. 

La máquina de Babbage es precursora 
de los ordenadores actuales, una especie de 
«vieja abuelita» que camina despacio, pero 
que llega a la meta. Babbage había calculado 
que su máquina podría desarrollar una veloci- 
dad de unas sesenta sumas por minuto (velo- 
cidad increíble). Como la máquina tenía tan- 
tos engranajes, también consideró la posibili- 
dad de que la energía necesaria para el mo- 
vimiento de engranajes, etc., se efectuara me- 
diante vapor. 
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Entre las personas que más ayudaron a 
Babbage se encuentra Lady Lovelace. De esta 
dama hablaremos en otro momento, pero no 
debemos olvidar que fue una magnífica mate- 
mática, y que se interesó notablemente en los 
proyectos de Babbage, ayudándole en todos 
los campos, difundiendo sus trabajos, progra- 
mando su máquina e incluso ayudándole a 
pensar posibles fuentes de ingresos, cuando 
la fortuna del inventor apenas si le permitía 
continuar comprando material para su má- 
quina. 

Babbage había diseñado una máquina 
superior a sus posibilidades. Murió en 1871, 
habiendo invertido toda su fortuna en la em- 
presa, y sin apenas ver resultados, ya que la 
máquina n) se construyó totalmente, y sólo po- 
dían admirarse algunos componentes en la 
máquina del inventor. (Hoy pueden verse en 
Londres.) 

Su hijo Henry Babbage, presentó la má- 
quina en 1910 a la «Astronomical Society». 
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LOS LENGUAJES 
DEL FUTURO: 
PROLOG 


N aspecto capital del de- 
sarrollo de la informática ha 
sido la creación y potencia- 
cion de los lenguajes de 
programación. El elemento 
básico que ha marcado la 
evolución de la informática 
ha resultado ser, desde lue- 
go, el desarrollo del hardware en sus dos as- 
pectos de obtención de componentes cada vez 
más sofisticados y de mejora de la arquitectu- 
ra y de los ordenadores. Pero también ha con- 
tribuido a dicha evolución (y ha venido poten- 
ciada a su vez, por ella) la mejora de los len- 
guajes de programación. Por esto, pensar en 
la Informática del futuro es pensar (junto a la 
arquitectura de las máquinas) en los lengua- 
jes de programación. ' 

De entre los lenguajes de futuro sobre- 
sale el PROLOG en dos sentidos: por un lado, 
es un lenguaje muy apropiado para los siste- 
mas de inferencia que están en la base de la 
mayoría de las aplicaciones de Inteligencia 
Artificial; de hecho, los dos lenguajes de pro- 
gramación más utilizados en este área son LISP 
y PROLOG, y los entornos más sofisticados que 
se están desarrollando en los últimos años se 
basan en alguno (o ambos) de estos dos len- 
guajes. Por otro lado, el PROLOG ha sido to- 
mado como base del (de los) lenguaje(s) de 
programación a desarrollar en el proyecto ja- 
ponés «del ordenador de quinta generación». 

¿Quiere esto decir que PROLOG va a 
ser el lenguaje de programación del año 2000? 
Esto es difícil de contestar, pero lo que pare- 
ce claro es que PROLOG o algún dialecto del 
será un lenguaje básico en los ordenadores 
que en esa fecha estemos utilizando. 


Y ¿Por qué PROLOG precisamente y no 
otro lenguaje de programación? Ya hemos co- 
mentado que no es sólo PROLOG el lenguaje 
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a utilizar en Inteligencia Artificial, sino uno de 
los posibles. Todos ellos tienen una caracterís- 
tica especial: son lenguajes declarativos y no 
procedurales. Esto, como veremos con detalle 
más adelante, supone varias ventajas prácti- 
cas, además de la facilidad general que apor- 
tar para la representación del conocimiento y 
el proceso de la información en tareas de in- 
ferencia: estas ventajas son que cada por- 
ción de un programa (cada proposición o con- 
junto de ellas) es evaluable independiente- 
mente del resto y, por otro lado, que las mo- 
dificaciones son fáciles de realizar, precisa- 
mente por esta independencia de cada propo- 
sición. 

El concepto de lenguaje declarativo (en 
contraposición a los lenguajes procedurales) 
responde a la idea de facilitar al ordenador la 
información de que disponemos (algo estruc- 
turada, claro está) y dejar que él la maneje 
para obtener los resultados que deseamos, en 
vez de tener que concebir nosotros el proce- 
dimiento de cálculo (algoritmo) y explicárselo 
al ordenador, como se hace en los lenguajes 
convencionales. 

En concreto, en PROLOG lo que reali- 
zamos en «programación lógica» (PROLOG = 
PROgraming LOgic): un programa el PROLOG 
es un conjunto de proposiciones lógicas que 
el intérprete es capaz de manejar. Por ejem- 
plo, podemos decirle que Carlos 1 fue el pa- 
dre de Felipe II y que Felipe el Hermoso fue 
padre de Carlos l; si además, le decimos que 
el «padre del padre de alguien» es el abuelo 
de esa persona, podemos inmediatamente pa- 
sar a preguntarle si Carlos 1 es padre de al- 
guien, si Felipe el Hermoso es abuelo de al- 
guien, quién es el padre de Felipe ll, eta., y el 
propio sistema hará sus «cálculos» y nos con- 
testará. (Por el contrario, en un lenguaje más 
convencional —el popular BASIC, por ejem- 
plo— habría que definir las variables, tenien- 
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do cuidado con su tipo y definir cómo pode- 
mos evaluar si alguien es padre o no de al- 
guien y ver cómo comparamos las cadenas de 
caracteres y otro sinfín de detalles que en el 
PROLOG obviamos. 

Además, otra ventaja del PROLOG es 
que su sintaxis es muy cómoda y sencilla, y 
que sus expresiones son casi como en caste- 
llano. Más concretamente, podemos construir 
una «base de datos» en PROLOG, introducien- 
do las siguientes proposiciones: 


Carlosl es-padre-de Felipe II 
FelipeH es-padre-de Carlos 1 


y la siguiente regla de inferencia: 


x es-abuelo-de z si x es-padre-de y 
8. y es-padre-de z 


y pasar a preguntar: 


es (Carlos! es-abuelo-de FelipelD? 
es (FelipeH es-abuelo-de Felipell)?. 
quién (x : x es-abuelo-de Felipell)? 


(la última expresión se leería: «quién es x tal 
que x es el abuelo de Felipe Il, es decir, 
¿quién es el abuelo de Felipe 11?). 

Las respuestas a estas tres preguntas 
son evidentes para una persona cualquiera, 
pero ¿cómo trabaja PROLOG? Para aclararlo, 
vamos a introducir alguna proposición más a 
nuestra base de datos (con Margarita de Par- 
ma, hija natural de Carlos 1 y su hijo Alejan- 
dro Farnesio, que sucedió a Juan de Austria 
como gobernador de los Países Bajos, con Isa- 
bel Clara Eugenia hija predilecta de Felipe Il, 
regente (pero no gobernadora) de los Países 
Bajos y con el propio Juan de Austria, también 
gobernador de'los Países Bajos): 


Carlos! es-padre-de Felipell 

Carlosl es-padre-de MargaritaP 
Carlos! es-padre-de JuanA 

Felipell es-padre-de IsabelCE 
MargaritaP es-madre-de AlejandroF 
AlejandroF fue-gobernador 

JuanA fue-gobernador 

IsabelCE fue-regente 


(obsérvese que ha aparecido una nueva rela- 
ción, el predicado «es-madre-de» y dos predi- 
cados adicionales: «fue-gobernador» y «fue-re- 
gente»). 

Además, debemos completar la definición 
del abuelo con el nuevo predicado aparecido 
(«es-madre-de») quedando: 


x es-abuelo-de z si x es-padre-de y 
$ y es-padre-de z 
x es-abuelo de z si x es-padre de y 
$: y es-madre-de z 


Si ahora queremos saber quién fue una 
persona cuyo abuelo fue Carlos I y fue gober- 
nador de los Países Bajos, preguntaremos: 


quién (x : Carlosl es-abuelo-de x € x 
fue-gobernador) 


PROLOG procesará nuestra pregunta de 
izquierda a derecha e intentará averiguar 
quién cumple la primera condición indicada: 
Carlos I es-abuelo-de x. Para ello accede a las 
reglas de inferencia de que dispone y ve que 
esa condición es equivalente a que se cumpla 
una Cualesquiera de los dos siguientes (nue- 
vos subjetivos a obtener): 


Carlos! es-padre-de y € y es-padre- 
de z (1) 
o bien Carlosl es-padre-de y 8: y es-madre- 
de z 


Toma la primera de ellas y ve, en la 
base de datos, si hay algún elemento «y» que 
cumple esta primera condición; hay tres: Fe- 
lipe II, Juan de Austria y Margarita de Parma; 
averigua si el primero de ellos (el primer va- 
lor «y» correspondiente a un hijo de Carlos 1) 
cumple la segunda condición: en efecto, «Fe- 
lipe II es-padre-de IsabelCE». Por tanto, ya te- 
nemos un elemento x que cumple Carlosl es- 
abuelo-de x. Pero, desgraciadamente, Isabel- 


Fig. 1. 


Descendientes de Carlos 1. 


CE no cumple la segunda condición que im- 
ponemos en la pregunta, pues no fue gober- 
nadora de los Países Bajos. Entonces PROLOG 
tiene que volver atrás (backtracking se llama 
al proceso) para seguir con alguno de los ca- 
sos posibles, que ha desechado anteriormente. 

Toma entonces la segunda opción (Jua- 
RA) que cumplía «Carlosl es-padre-de y», pero 
este elemento no cumple «y es-padre-de z», 
pues en la base de hechos no aparece JuanA 
como padre de nadie. 

Así, vuelve (backtrack) a Margarita de 
Parma que había cumplido la primera condi- 
ción impuesta: Carlosl es-padre-de y. Para 


a PAARKXÁ 
Carlos I (es-padre-de) Felipe Il (es-padre-de) 
> A A 


(es-padre-de) 
A 


a AE 
ÚÁÚA 
HA 
pS 


MargaritaP 


este nuevo valor de «y», preguntamos por la 
segunda parte de las condiciones impuestas 
como subobjetivos en (1) y vemos que Marga- 
ritaP no cumple tampoco, pues «MargaritaP es- 
padre-de z» no es cierto para ningún z. Esta 
rama del proceso se ha agotado sin éxito y hay 
que volver atrás (backtracking) preguntando 
por la segunda opción (subobjetivo) de las 
previstas en (1). Ahora PROLOG verá que 
«Carlosl es-padre-de MargaritaP» y «Margari- 
taP es-madre-de AlejandroF» (habiendo com- 
probado y desechado «Carlosl es-padre-de 
Felipell y «Carlos! es-padre-de JuanA», pues 
ninguno de los dos cumple «y es-madre-de 2»). 


IsabelCE 


no padre de nadie 


no padre de nadie 


no madre de nadie 


no madre de nadie 


RE AS 
(es-madre-de)—» gobernador 
ALEA 


Fig. 2. Proceso de Backtracking. 


Con este nuevo valor obtenido com- 
prueba la segunda condición de la pregunta 
inicial y ve que, en efecto, Alejandro Farnesio 
fue gobernador de los Países Bajos: entonces 
PROLOG contesta: 


x = AlejandroF 


y como, después de las oportunas comproba- 
ciones y vueltas atrás, descubre que no hay 
ningún otro elemento que responda a la pre- 
guta, añade: 


no hay (más) respuestas 
Estos conceptos son los que el propio 
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Colmerauer*, coinventor del PROLOG, sinteti- 
za en lo que llama el «reloj del PROLOG» (o má- 
quina del PROLOG) y que aparece en la figu- 
ra 3. 

En ella, «i» contiene un número no ne- 
gativo que representa el tiempo. 

«Cb contiene las restricciones (o condi- 
ciones) que deben ser satisfechas en el tiem- 
po (momento) «i». 

«Ti» incluye la secuencia de términos 
que no han sido eliminados aún en el momen- 
to «1». 


* Proceedings of the Eighth International Joint Conference on 
Artificial Inteligence. Karlsruhe, W. Germany. Tomo 1, pág. 496. 


(no gobernadora) 


Sea T, la secuencia 
Alo ty 

sea Sy > Spy S,, Br 

la 12 copia de la re- 


L, 


la 
Cor=6 ssl 


Togo = So ee So by + 


Fig. 3. El reloj del PROLOG. 


«Ri» es el número de la regla elegida en 
el tiempo «i». 

«Rmax» indica el número de la última 
regla. 

«la parte más relevante de Ci» significa 
la subcondición (en forma reducida) que se 
refiere a las variables que aparecen en la pre- 
gunta. 

El funcionamiento de la máquina viene 
descrito por los dos círculos de la figura 3. En 
el exterior, el proceso gira una vuelta en el 
sentido de las agujas del reloj, mientras el 
tiempo («i») se incrementa en una unidad; en 
el interior, se produce un giro en sentido con- 
trario a las agujas del reloj, mientras el tiem- 
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po decrece una unidad. Se puede cambiar la 
progresión del tiempo pasando de uno a otro a 
través de uno de los dos «puentes» de un solo 
sentido que hay uniendo ambos círculos. 

La ejecución de un programa PROLOG 
consiste en responder a una pregunta repre- 
sentada por un término (al principio se alma- 
cena en TO). Todas las respuestas que se van 
computando son restricciones o condiciones 
en las cuales el término representa hechos es- 
pecíficos. Comenzamos el proceso por el par 
(CO, TO); CO está vacío y TO es la pregunta 
de comienzo. Cada vuelta que se da al círculo 
exterior incrementa la condición vigente ac- 
tualmente «Ci» y transforma la secuencia «Ti». 


Si la regla que se utiliza ya contiene una con- 
dición Be, esta condición ese añade al juego 
de condiciones elementales de que dispone- 
mos. Concluye el proceso en cuanto se gene- 
ra una condición no satisfacible o cuando la se- 
cuencia «Ti» queda vacía: es el momento en 
que se realiza el paso de backtracking (vuelta 
atrás) para tomar otras reglas. Si en algún mo- 
mento, durante el proceso de giro del «reloj», 
«Ci» es satisfacible, se imprime la respuesta (y 
vuelve atrás para localizar respuestas adicio- 
nales). 

Para concluir esta breve presentación 
del PROLOG incluimos un programa escrito en 
el dialecto más popular de los existentes para 
microordenadores pequeños (el microPRO- 
LOG) y referente al «análisis» de una «base de 
hechos» geográfica”. 


a) Se utilizan las relaciones: 

<ciudad> capital-de <provincia> 

<provincia> provincia-de <autono- 
mía> F 

<ciudad> situación (<posición-verti- 
cal> <posición-horizontal>) 


referidas estas posiciones a su situación en un 
mapa imaginario. Como nombres de indivi- 
duos se utilizarán las capitales de las provin- 
cias, las provincias de tres Autonomías espa- 
ñolas y estas tres Autonomías (Asturias, Rioja 
y País Vasco). 


b) La base de datos podría ser: 
Oviedo capital-de Asturias 

Bilbao capital-de Vizcaya 
SSebastián capital-de Guipúzcoa 
Vitoria capital-de Alava 

Logroño capital-de Rioja 

Vizcaya provincia-de PaísVasco 
Guipúzcoa provincia-de PaísVasco 
Alava provincia-de PaísVasco 
Asturias provincia-de AsturiasAut 
Rioja provincia-de RiojaAut 
Oviedo situación (15 5) 

Bilbao situación (16 12) 

Sebastián situación (17, 15) 


* Inspirado en el manual del microPROLOG, disponible para 
Spectrum y preparado por K. L. Clark, F. G. McCabe y J. R. En- 
nals. 
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Vitoria situación (13, 13) 
Logroño situación (11, 14) 


c) Con todo esto, podíamos formular 
preguntas del tipo: 

1, ¿Qué ciudades están al norte de Vito- 
ria? 

wich (x : x situación (y z) and Vitoria si- 
tuación (Y Z) and Y LESS 


o bien en la versión castellana de microPRO- 
LOG: 


que (x : x situación (y z) e Vitoria situa- 
ción (YZ) ., 


e Y es-menor-que y 


(Nótese que en la versión castellana del 
microPROLOG de Spectrum la conectiva lógi- 
ca «and» se ha traducido por «e» en vez de «y», 
para no confundirla con esta variable). 

2. ¿Hay alguna provincia del País Vas- 
co cuya capital esté al norte de Logroño y al 
sur de Oviedo? 

is (x provincia-de PaísVasco and y ca- 
pital-de x and y situación (z X) and Logroño si- 
tuación (Y Z) and Oviedo situación (x, y,) and 
y LESS z and z LESS x,) 


o en castellano: 


? (x provincia-de País Vasco e y capi- 
tal-de x e y situación (z X) e Logroño situación 
(Y Z) e Oviedo situación (Xx, y,) e Y es-menor 
que z e z es-menor-que Xy) 

3. ¿En qué ciudad y Autonomía hay una 
ciudad al sur y al este de Bilbao? 

wich (Xx y : x provincia-de y and z capi- 
tal-de x and z situación (X Y) and Bilbao situa- 
ción (Z x,) and X LESS Z and x, LESS Y) . 


y en castellano 


que(x y : x provincia-de y e z capital- 
de x e z situación (XY) e Bilbao situación (Z 
x,) e Xesmq Z e x, esmq Y) 


(utilizando la abreviatura «esmq» en vez de la 
frase completa es-menor-que). 


HIGLOSARIO DE TERMINOLOGIA 
UTILIZADA EN 
PROGRAMACION LOGICA 


Backtracking. Proceso de vuelta atrás. En el 
desarrollo de la búsqueda de soluciones 
realizada en el árbol lógico de la base de 
hechos, cuando en una rama no se obtiene 
una solución válida, es necesario «volver 
atrás» por el árbol hasta la última condición 
comprobada, para seguir el proceso de bús- 
queda por otra rama. 


Base de hechos. Conjunto de proposiciones 
y reglas de inferéncia sobre el que se rea- 
liza la búsqueda de soluciones. 


Condiciones o restricciones. Cada uno de 
los elementos que conforman la base de he- 
chos. Conjunto de aseveraciones que cons- 
tituyen el conocimiento que, sobre el tema 
de que se trata, se dispone. 


Conectiva u operador lógico. Cada uno de 
los elementos de conexión que aparecen 
entre las proposiciones simples para com- 
poner las proposiciones más complejas que 
aparecen en la base de hechos. 


Conocimientos, base de. Concepto equiva- 
lente al de base de hechos. 


Declarativo, lenguaje. Lenguaje de pro- 
gramación basado en la mera presentación 
de los hechos (o conocimiento) y no en la 


definición de los algoritmos de proceso, 
como sucede en los lenguajes procedurales 
(los lenguajes convencionales). : 


Inferencia, regla de. Regla que permite ob- 
tener informaciones o hechos adicionales a 
partir de los que ya están disponibles. Se 
habla también de Proceso de inferencia o 
Sistema de inferencia. 


Predicado. Cualidad que se atribuye a un su- 
jeto o relación existente entre varios sujetos 
(en el primer caso se llama predicado mo- 
nádico y en el segundo predicado poliádi- 
co). Uno o varios predicados con su(s) suje- 
to(s) correspondiente(s) constituyen una 
proposición. 


Procedural. Lenguaje de programación con- 
cebido para definir algoritmos, en contrapo- 
sición a los lenguajes declarativos. 


Proposición o aserción. Afirmación simple 
que constituye la base de conocimientos. 
Cada información que compone dicha base 
de conocimientos o base de hechos. 


Subobjetivo. Cada uno de lo objetivos en que 
- se descompone un objetivo básico que haya 
que evaluar, en virtud de alguna de las re- 
glas de inferencia de la base de conoci- 
mientos. 


VOCABULARIO DE INFORMATICA? 


Inclusión. Operador lógico que tiene la si- 
guiente propiedad: Si P y Q son dos aseve- 
raciones, P inclusión Q es falso, si P es ver- 
dadero y Q falso, y es verdadero si son ver- 
daderas las dos aseveraciones. Este opera- 
dor suele indicarse como P>Q, y tienen el 
mismo significado que la implicación «Si En- 
tonces». ' 


Inconector. En diagramas de flujo, conector 
que indica la continuación de una línea de 
flujo rota. 


Incremental, ordenador. Ordenador en el 
que se utiliza con frecuencia su caracterís- 
tica de representar los datos de forma in- 
cremental. Ordenador diseñado especial- 
mente para procesar cambios en las varia- 
bles, y también sus valores absolutos. 


Incremental, representación. Método de 
representación en el que lo que se repre- 
senta son los cambios de los valores de una 
variable, no los propios valores. 


Incrementar. Acción por lo que se va aña- 
diendo una cantidad a otra. 


Index. (Véase Indice.) 


Indexada, dirección. Dirección que se ve 
modificada por el contenido de un registro 
índice antes o durante la ejecución de una 
instrucción al ordenador. 


Indice, registro. Registro cuyo contenido se 
suma ose sustrae de la dirección del ope- 
rando antes o durante la instrucción del or- 
denador. De esta forma se pueden calcular 
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en las instrucciones en lenguaje máquina 
las direcciones absolutas de las distintas po- 
siciones de la memoria central, basta con 
sumar la direccion base (contenida en el re- 
gistro) más el valor del desplazamiento rela- 
tivo. 


Indice. Referencia ordenada del contenido 

de una fichero o.documento, junto con otras 
referencias para su identificación y locali- 
zación de su contenido. 
Perteneciente a un registro índice. Símbolo 
que acompaña a un número y que sirve para 
identificarlo como formando parte de una 
matriz, etc., si la matriz está representada 
por los elementos x1, x2... x10, 1, 2... 10 son 
los índices. 


Indirecta, dirección. Dirección que especi- 
fica una posición de almacenamiento en la 
que se encuentra una dirección directa, u 
otra indirecta. Tienen el mismo significado 
de dirección multinivel. 


Industrial, proceso de datos. Proceso de 
datos, específicamente diseñado para acti- 
vidades industriales. 


Infija, notación. Método de creación de ex- 
presiones matemáticas que consiste, en al- 
ternar los operandos simples y los operado- 
res. Los términos se definen de forma que 
cumplan las leyes de precedencia y parén- 
tesis de los operadores. El operador, a su 
vez, realiza su función sobre los términos 
adyacentes. En notación infija, la expresión 
«a más b multiplicado por c» se escribiría 
como (a + b) x c. En contraposición con no- 
tación con prefijos (o notación prefija). 


VOCABULARIO DE INFORMATICA “AAA 


Información, bits de. En telecomunicación, 
bits generados por la fuente de datos, y que 
el sistema de transmisión de datos no utiliza 
para el control de errores. 


Información, sistema de retroalimenta- 
ción de la. En telecomunicación, sistema 
de transmisión de la información que utiliza 
un «eco» para verificar la pureza de la trans- 
misión. 


Información, proceso de la. Término que 
. llene el mismo significado que proceso de 
datos. 


Información, recuperación de la. Méto- 
dos y procedimientos para volver a dispo- 
ner de información desde los sistemas de al- 
macenamiento. 


Información, separador de la. Grupo de 
caracteres de control que se utilizan como 
frontera para separar la información. El tipo 
o nombre del separador no indica en abso- 
luto qué es lo que separa. 


Información, teoría de la. Rama del cono- 
cimiento que estudia la pureza de las trans- 
misiones (siempre sujetas a fallos de trans- 
misión, distorsión y ruido), las condiciones 
de propagación, la cantidad de información 
que se transmite por un canal, los tipos de 
códigos, etc. 


Informática. Contracción de «INFORmación 
AutoMATICA». Indica todo lo relacionado 
“con el proceso de datos, los ordenadores, 
periféricos, etc., en el sentido más general. 


Information retrieval. (Ver Recuperación 
de la información.) 


Inhibir. Evitar que se produzca alguna ac- 
ción como resultado de otra. Por ejemplo, se 
pueden tomar medidas para inhibir la pre- 
sentación en pantalla de determinado tipo 
de información considerada reservada. 


. 


Inhibición, señal de. Señal que impide que 
se lleve a cabo determinada operación. 
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ar 


Inicialización. Procedimiento que establece 
los valores iniciales necesarios para que el 
dispositivo comience a funcionar correcta- 
mente. Un ejemplo puede ser atribuir valo- 
res a las variables de un programa. Los in- 
térpretes del BASIC moderno inicializan au- 
tomáticamente, poniendo a cero todas las 
variables, y a valor nulo todas las cadenas. 


Inicialización de un disco. Procedimiento 
por el cual se prepara un disco utilizado con 
anterioridad, para volver a utilizarlo, Los 
disquetes y discos duros necesitan ser ini- 
cializados grabando en ellos determinadas 
indicaciones. A esta operación se le deno- 
mina generalmente formateado, y a veces, 
sectorización,. 


Initial program loader (IPL). Programa 
que realiza la carga automática de un siste- 
ma operativo u otro programa, de forma que 
proceda bajo su propio control. 


Inmediato. Modo de trabajo en BASIC, en el 
que las instruccones no están numeradas y 
se ejecutan inmediatamente, pulsando de- 
tras de cada una la tecla Return, para que 
el ordenador sepa que se ha terminado de 
introducir la instrucción. Puede indicar tam- 
bién un modo de direccionamiento utilizado 
en Ensamblador para referirse a una cons- 
tante contenida en la propia instrucción. 
También puede indicar una operación o ac- 
ceso a la memoria de ejecución directa. 


Input. (Véase Introducción de datos.) 


Input área. Zona de almacenamiento reser- 


vada para una entrada. Idéntico a Input 
block. 


Input, channel. Canal de un estado en un 
dispositivo o elemento lógico. 


Input data. (Ver Introducción de los datos.) 


Input, proceso. Proceso por el cual un dispo- 
sitivo recibe los datos. Proceso por el cual 
un equipo periférico o sistema de almace- 
namiento externo envía los datos al disposi- 
tivo de almacenamiento interno. 


Instrucción. Orden que especifica una de- 
terminada operación, con los valores o di- 
recciones de sus operandos. Está escrita en 
un determinado lenguaje. Las palabras cla- 


ve que aparecen en las líneas de programa 
son llamadas a su vez instrucciones o co- 


mandos. 


Instrucción, dirección de. Dirección que 
se utiliza para tomar una instrucción. 


Instrucción, código de. Tiemen el mismo 
significado que Código de operación. 


Instrucción, contador de. Contador que in- 
dica la posición de la siguiente instrucción 
que debe ser ejecutada. 
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